Visual Basic - Conectar DTPicker con Access

Hola a todos... gracias por su ayuda desde ya...

tengo una db (acces) obviamente tengo los botones con campos que se desean guardar en acces y tengo un campo destinado a guardar la ffecha de nacimiento por DTPicker.. y quisiera saber:.

Como almacenar en mi db la fecha seleccionada en el DTPicker?


Muchas gracias desde ya estare..

dtpicker.value clar depende del formato de fecha del sistema operativo

fecha = DTPicker.value o fecha =format( DTPicker.value, y el formato que quiera)

Esta fue mi solución:

Private Sub consultaCitas()
Me.Caption = dtpFechaInicial
Dim Finicial, Ffinal As String

dtpFechaInicial.CustomFormat = Format(dtpFechaInicial.Value, "mm/dd/yyyy")
Finicial = dtpFechaInicial.CustomFormat

dtpFechaFinal.CustomFormat = Format(dtpFechaFinal.Value, "mm/dd/yyyy")
Ffinal = dtpFechaFinal.CustomFormat

If txtMedico <> "" Then
adoFiltroCitas.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "cmd_bd.mdb;Persist Security Info=False"

adoFiltroCitas.RecordSource = "SELECT DISTINCT Cita.Fecha, Cita.Hora,Paciente.Id_Paciente,(Paciente.Nombre + ' ' + Paciente.Apellido_paterno + ' ' + Paciente.Apellido_materno) as nombre_completoP, Medico.Id_Medico, (Medico.Nombre + ' ' + Medico.Apellido_paterno + ' ' + Medico.Apellido_materno) as nombre_completo " + _
"FROM Medico INNER JOIN (Paciente INNER JOIN Cita ON Paciente.Id_Paciente = Cita.Id_Paciente) " + _
"ON (Medico.Id_Medico = Paciente.Id_Medico) AND (Medico.Id_Medico = Cita.Id_Medico) " + _
"WHERE Cita.Fecha Between #" & Finicial & "# And #" & Ffinal & "# AND (Medico.Nombre + ' ' + Medico.Apellido_paterno + ' ' + Medico.Apellido_materno) like '" + txtMedico + "'"

adoFiltroCitas.Refresh
End If
End Sub