no me carga el grid con seleccion combo

[guillebomtrasmiti]

Public Sub cargainventariosAlmacen()
Dim oldb As String
Dim cmando As OleDbCommand
Dim dapatador As OleDbDataAdapter
Dim dataset As DataSet
'conexion.Open()

oldb = "Select Fecha From GeneralAlmacen GROUP BY Fecha"

cmando = New OleDbCommand
cmando.CommandText = oldb
cmando.CommandType = CommandType.Text
cmando.Connection = conexion

dapatador = New OleDbDataAdapter(cmando)
dataset = New DataSet()
dapatador.Fill(dataset)

ComboIAlmacen.DataSource = dataset.Tables(0)
ComboIAlmacen.DisplayMember = "Fecha"
'ComboIAlmacen.ValueMember = "Plu"


End Sub