Bueno supongamos que estas utilizando conexion ADO, lo puedes modificar asi:
Dim cnbase As ADODB.Connection
Private Sub Form_Load()
Abrir 'Manda llamar al procedimiento
cnbase.Execute "Update TuTabla Set Fecha='" & Format(DTPicker1.Value, "dd/mm/yyyyy") & "'" 'formato de fecha que estes usando
MsgBox "Listo!!!", vbInformation
End Sub
Sub Abrir()
Ruta = "C:\MIBASEDATOS.mdb" 'donde esta tu ruta de base datos
Conexion = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & Ruta & ""
Set cnbase = New ADODB.Connection
cnbase.ConnectionString = Conexion
cnbase.Open Conexion
End Sub
'Saludos