Ayuda consulta en access

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 ya encontre el error y lo admito publicamente que pedazo de
rror el tenido lo que tenia mal era el nombre del campo jajaja son cosas
que
pasa. Ahora tengo otra duda sabes que el el grid sepoenen como titulodela
columna el nombre del campo esto lo puedo cambiar, bien sea poniendo un
alias
o cambiando el nombre de la columna , pero sin cambiar la forma de
cargarlo.