Ayuda consulta en access

Ante nada muchas gracias a tod@s que con gran paciencia resuelven nuestras
dudas.
Ahora mismo yo me veo en uun pequeño problema que para alguno seguro que es
facil de resolver asi que ahio va la consulta tengo el siguiente codigo en
vb.net con bd access
strConexion = "Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=C:\Documents and
Settings\Arminda\Escritorio\cuymo2000\cuymo2000\cuymo2000.mdb"

Try
'Abrimos la conexión
cn = New OleDbConnection(strConexion)
cn.Open()
Catch ex As Exception
MessageBox.Show("Error al abrir la conexión:" & vbCrLf &
ex.Message)
Exit Sub
End Try


ds = New Data.DataSet()
Ssql = "SELECT a.nombre,b.stock FROM productos a left JOIN almacen b
ON a.cod_prod=b.cod_prod"

da = New OleDbDataAdapter(Ssql, cn)

Dim cmdBuilder As New OleDbCommandBuilder(da)
da.MissingSchemaAction = MissingSchemaAction.AddWithKey '(Añadir con
clave)

'Cargamos el DataSet
Try
da.Fill(ds, "almacen")
Catch ex As Exception
MessageBox.Show("Error al cargar el DataSet:" & vbCrLf &
ex.Message)
End Try
listado.DataSource = ds.Tables("almacen")

mi problema es que no me ejecuta la consulta y no se si es a lahora de poner
el nombre al carga dataadapter o es a la hora dela consulta alguien sabe que
puede ser??.
Muchas gracias tod@s