no reconoce la fecha del combobox

[guillebomtrasmiti]

hola amigos...tengo un grave problema, tengo un combo box que carga la fecha de un inventario...de esta manera el código que tengo mira en el combo la fecha...busca en la base de datos de access esa fecha...ve que producto tengo seleccionado en el datagrid y muestra en un combo su stock...el tema es rarísimo...por ejemplo si tengo fechas del 15 hasta el 31 ejemplo; 15/8/2011....la suma es correcta...pero si las fechas van del 1 al 14 no lo hace bien...se queda el textbox en blanco cuando en realidad en la base de datos existe información...ayuda por favor estoy desesperado

código que filtra el combo box
Public Sub cargaULTIMOINVENATARIO()
Dim adapta As New OleDbDataAdapter
Dim datavacio As New DataSet

Dim comados = conexion.CreateCommand
comados.CommandType = CommandType.Text
'Try
comados.CommandText = "SELECT Plu,Fecha from GeneralAlmacen where Plu= @Id Order by Fecha ASC"
comados.Parameters.AddWithValue("@Id", (DataGridView1.CurrentRow.Cells(0).Value))


adapta.SelectCommand = comados
adapta.Fill(datavacio, "GeneralAlmacen")

Dim fechamax As Date
Dim fechamaxfinal As Date
'aquí cargo mediante un FOR que recorre las líneas la suma de unidades
For i = 0 To datavacio.Tables("GeneralAlmacen").Rows.Count - 1
fechamax = datavacio.Tables("GeneralAlmacen").Rows(i).Item("F echa").ToString

fechamaxfinal = fechamax.Date.ToString("dd/MM/yyyy")
ComboIA.Text = fechamaxfinal

codigo que muestra en el textbox la suma
Public Sub sumainventarioALMACEN()

''''''''''''''''''''''''''''''''''''''''''''''''
Dim adapta3 As New OleDbDataAdapter
Dim datavacio3 As New DataSet

Dim comados3 = conexion.CreateCommand
comados3.CommandType = CommandType.Text
'Try
comados3.CommandText = "SELECT Fecha,Plu,NomProducto,Stock From GeneralAlmacen where Plu= @Id and Fecha = #" & ComboIA.Text & "# "
comados3.Parameters.AddWithValue("@Id", (DataGridView1.CurrentRow.Cells(0).Value))


adapta3.SelectCommand = comados3
adapta3.Fill(datavacio3, "GeneralAlmacen")

Dim cantidadstock3 As New Integer
Dim suma3 As New Integer
Dim total3 As New Integer
Dim final3 As New Integer

TextInvAlma.Text = "0"
'aquí cargo mediante un FOR que recorre las líneas la suma de unidades
For i = 0 To datavacio3.Tables("GeneralAlmacen").Rows.Count - 1
cantidadstock3 = datavacio3.Tables("GeneralAlmacen").Rows(i).Item(" Stock").ToString
'almaceno en suma1 la cantidad
suma3 = cantidadstock3
' y en total1 le sumo las líneas
total3 = suma3 + total3
'para en final 1 poner la suma total
final3 = total3

TextInvAlma.Text = final3
Next
End Sub