Si lo estás haciendo con objetos ODBC intentalo de ésta forma:
Cita: Insert Into Tabla (CampoFecha) Values(?)
...
Parametro = New Data.Odbc.OdbcParameter
Parametro.ParameterName = "@CampoFecha"
Parametro.OdbcType = Odbc.OdbcType.DateTime
Parametro.Value = CDate('2007-05-01')
Salu2