Datatype Mismatch

Does anyone know where my error is on this? I keep getting a data type mismatch error.

My fields and their type are:

EmployeeID - Text
OTDate - Date
HoursPay - Double
RateofPay - Currency
TypeOfJob - integer
Notes - text
ID - Autonumber

My Code is as follows:

<Code>
Dim intTypeOfJob As Integer
Dim strSQL As String
Dim dblHoursPay As Double
If [TypeOfJob] = 1 And [HoursPay] > 8 Then
intTypeOfJob = 99
dblHoursPay = [HoursPay] - 8
strSQL = "INSERT INTO tblOvertime VALUES (""" & EmployeeID _
& """, #" & OTDate & "#, " & dblHoursPay & ", " & RateOfPay & ", " _
& intTypeOfJob & ", """ & Notes & """," & ID & ")"
CurrentDb.Execute strSQL, dbFailOnError
End If
<End Code>

Thanks

re: Datatype Mismatch

You have not specified the fields into which to insert the Values().

re: Datatype Mismatch

How would I do that my fields are:
EmployeeID - Text
OTDate - Date
HoursPay - Double
RateofPay - Currency
TypeOfJob - integer
Notes - text
ID - Autonumber

I am very new at this and am learning from this site

Thanks
Dan

re: Datatype Mismatch

Try something like:

re: Datatype Mismatch

Yes that is almnost it!!!!!!!!!!!!!!! except I had to remove the ID field because it was autonumber. Now it works!!!!!!!!!!!!

Thankyou

re: Datatype Mismatch

You're welcome. Thanks for posting back with your success.