Date format: How to store Month format

Dim amaun As Double
Dim Noic

For i = 4 To 16


amaun = 0
amaun = Dat_Excel.Recordset(i)


If amaun > 0 Then
Dat_potongan.Recordset.AddNew
Dat_potongan.Recordset("id_member") = Me.Dat_Excel.Recordset(1)
Dat_potongan.Recordset("noic") = Me.Dat_Excel.Recordset(2)
Dat_potongan.Recordset("ddate") = Txt_Date.Text
Dat_potongan.Recordset("company") = Me.Dat_Excel.Recordset(3)
Dat_potongan.Recordset("deduction") = i - 3
Dat_potongan.Recordset("amount") = Me.Dat_Excel.Recordset(i)
Dat_potongan.Recordset("Bulan") = Format$(Txt_Date, "mm")
Dat_potongan.Recordset("Jenis_sek") = Combo_Sheet.Text
Dat_potongan.Recordset.Update
End If


Next i


M345:
Dat_Excel.Recordset.MoveNext

DoEvents
Loop

M123:
Batal:


End Sub