Visual Basic.NET - consulta con dos tablas

Hola a tod@s tengo un pequeño problema que s que el siguiente codigo no me funciona y no se si es a la hora de hacer la consulta o de cargar el datadapter alguien sabe conde esta el fallo??
Es una bd de access.
Muchas gracias de ante mano

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")