no me carga el grid con seleccion combo

[guillebomtrasmiti]

MIRA ASÍ HAGO LA CARGA EN EL COMBOBOX

'carga el combobox de inventarios según fechas existan
Public Sub cargainventariosAlmacen()
Try
Dim adaptador As New OleDb.OleDbDataAdapter("Select Fecha From GeneralAlmacen GROUP BY Fecha", conexion)
Dim midataset As New DataSet

adaptador.Fill(midataset, "GeneralAlmacen")

ComboIAlmacen.DataSource = midataset.Tables("GeneralAlmacen")
ComboIAlmacen.DisplayMember = "Fecha"
'ComboProducto.ValueMember = "Fecha"
Catch
MessageBox.Show("No es posible cargar las fechas de inventarios")
End Try
'TextPlu.Enabled = False
End Sub