Visual Basic - Introducir fecha DTPicker en BD.

Hola, a ver si me podéis ayudar...Resulta que yo tengo un formulario que se llama Form_Entrada, donde hay un DTPicker. He hecho "fecha=DTPicker.Value", para meterlo en una variable, que he declarado como global en un módulo. Bien, yo quiero que esto me lo envíe a otro formulario, y que en éste, recoja el mes y el año de la variable global fecha, y me los meta cada uno en dos campos (mes, anho) de una base de datos. Cómo puedo hacerlo?. Por favor ayudaaa!!!! jeje. Millones de gracias! :D.

Espero que esto te sirva yo lo he usado asi,
lo mas facil seria asignalo a un label o texto de formulario en que lo necesitas

ej
en el formulario 1 tienes tu fecha=DTPicker.Value
para llevarlo al formulario 2 podrias hacerlo de:

formulario2.fecha.text=fecha

sabiendo que en el formulario 2 esta creado el textbox fecha

nota:Espero que te sirva

luego
en el formulario 2
mes=month(fecha)
año=year(fecha)
inserta(mes,año,"tabla")
si usas ado

Sub inserta(Mes As Long, Ano As Long, tabla As String)
Dim Rs As New ADODB.Connection
Dim Ssql As String

Rs.Open "dsn=" & DsnNameBD 'Nombre de la bd definida en el odbc

Ssql = "insert into "& tabla &" (mes, ano)"
Ssql = Ssql & "values("
Ssql = Ssql & mes & ","
Ssql = Ssql & Ano & ")"
Rs.Execute (Ssql)
Rs.Close
Set Rs= Nothing
End Sub