Private Sub Command4_Click()
Dim StrSQL As String
DoCmd.SetWarnings False
StrSQL = "INSERT INTO Attend ( Attemployee, AttDate, AttType ) " _
& "SELECT " & Me![scrStudent] & " AS F1, #" _
& Format(Me![Text0], "mm/dd/yy") & "# AS F2, " & Me![scrAttend] & " AS F3;"
DoCmd.RunSQL StrSQL...