Hi,
To code below, what should DoCmd be declared?
Dim StrSQL As String
Dim InDate As Date
Dim DatDiff As IntegerInDate = Me.FromDateTxt
StrSQL = "INSERT INTO Test (Start_Date) VALUES ('" & InDate & "' );"
DoCmd.SetWarnings False
DoCmd.RunSQL StrSQL
DoCmd.SetWarnings True

][1]