no me carga el grid con seleccion combo

[guillebomtrasmiti]

ASÍ CASI...pero me carga todo junto

Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand


com.CommandType = CommandType.Text
com.CommandText = "SELECT Fecha,Plu,NomProducto,Stock From GeneralAlmacen Where Fecha = @combo1 group by Fecha,Plu,NomProducto,Stock"
com.Parameters.AddWithValue("@combo1", OleDbType.Date.Equals(ComboInventarios.SelectedVal ue))

adapt.SelectCommand = com
adapt.Fill(setda, "GeneralAlmacen")


'aquí cargo el datasource y el datamenber del datagrid
DgInventario.DataSource = setda
DgInventario.DataMember = "GeneralAlmacen"
DgInventario.Refresh()