Hi, thanks for that, but it still s gives me errors so I took out some variables etc and did this:
Dim ValDate As Date
Dim SQL As String
ValDate = Now
SQL = "INSERT INTO 'tbl_Logon_History' ( 'Date_Time','Staff_Member') SELECT ( #" & ValDate & "# , " & lstName.Value & ");"
DoCmd.RunSQL SQL...