se intercambia el dia y mes de las fechas!!

hola
quiero rellenar un datagrid con unos datos pero solo si tienen la fecha
actual y lo que me sapes es q
se rellena el datagrid correctamente pero si la fecha actual es 04/06/2005,
se me rellenan los de la fecha 06/04/2005
sabeis como puedo subsanar esto??

graciasss

lo q hagoe s esto:

fecha.Text = System.DateTime.Today
crit_Fecha = DateSerial(Year(CDate(fecha.Text)), Month(CDate(fecha.Text)),
Microsoft.VisualBasic.Day(CDate(fecha.Text)))



Dim nuevo As cargadatagrid

mysql = "SELECT * FROM PEDIDOS WHERE FECHA =#" & crit_Fecha & "# ;"

nuevo.Carga(mysql, "Pedidos", DataGrid1)