Visual Basic - ¿Quien me envía un ejemplo?

Hola a todos.

¿Quien puede enviarme un ejemplo VB DAO con un campo fecha en una tabla access y un control data?.
El problema es que el campo fecha al añadir un registro no da problemas, pero al modificar cualquier campo, si no modifico el de fecha da error de formato de fecha no válido.
Se trata de tener un campo fecha y de poder pasar los registros o modificar sin que el campo de fecha de error.

Gracias a todos.

Espero esto te sirva....

SQL = "select compras.nro_factura,compras.fecha,proveedores.nombre,compras.total,compras.estado" _
& " from compras,proveedores" _
& " where compras.rut_proveedor=proveedores.rut_proveedor and compras.fecha >= DateValue('" & Fecha1.Value & "') and compras.fecha <= DateValue('" & Fecha2.Value & "')"

Set Rst = Dbs.OpenRecordset(SQL)

If Not (Rst.BOF And Rst.EOF) Then
Llamas a un sub Mostrar
'Descripcion.Text = Rst.Fields("descripcion")
Else
MsgBox "Codigo de Articulo No registrado en rango de fechas¡¡", vbInformation, "Mensaje al Usuario"
End If