Cargar registros en un DataGrid

[er_davilito]

Hola muy wenas, tengo un problemilla.
Tengo un form con un DTPicker y algunos text, un combobox y un richtextbox, con los cuales almaceno datos en una tabla llamada citas. Esto lo hace bien mi programa ya que veo en la tabla k están todos los datos guardados correctamente.

El problema viene cuando abro el form que sirve para ver las citas que tengo en el día seleccionado, por un DTPicker y kiero mostrarlo en un DataGrid, hay días k me salen y otros días k no me sale nada en la tabla,akí os dejo mi código x si podeis ayudarme...

Option Explicit
Dim conexion As ADODB.Connection
Dim record As ADODB.Recordset
Dim sql As String


Sub CargarValores()
Set record = New ADODB.Recordset
record.CursorLocation = adUseClient

sql = "SELECT * FROM citas where fecha = #" & DTPicker1.Value & "#"

record.Open sql, conexion

Set DataGrid1.DataSource = record

End Sub

Private Sub Command1_Click()
Unload formvercitas
End Sub

Private Sub DTPicker1_CloseUp()

CargarValores


End Sub

Private Sub Form_Load()
DTPicker1.Value = Date

' abrimos la conexión que nos va a servir para todo el módulo de formulario y solamente la
' cerraremos en el evento Unload del Form
Set conexion = New ADODB.Connection
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\david\Escritorio\PROYECTO\bd1.mdb;Persist Security Info=False"

CargarValores

Set record = New ADODB.Recordset
sql = "SELECT fecha FROM citas"

End Sub

Private Sub Form_Unload(Cancel As Integer)
conexion.Close

End Sub


Weno Gracias de antemano!! a ver si podeis ayudarme... GRACIAS y un SALUDO.