no me carga el grid con seleccion combo

[guillebomtrasmiti]

hola amigos, tengo esto;

Public Sub cargainventariocombo()

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", ComboInventarios.SelectedValue.ToString)

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


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

Private Sub ComboInventarios_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboInventarios.SelectedIndexChanged
cargainventariocombo()
End Sub

y me da este error
No coinciden los tipos de datos en la expresión de criterios.
alguna idea?