Solved: Help With an SQL INSERT query

[BarkersIT]

Hello I am trying to insert values from a form into a table using a "simple" INSERT query. However i keep getting an error about the expected number of parameters being 4?

Private Sub Command15_Click()
Dim db As Database
Set db = CurrentDb()
Dim eid As Variant
Dim bid As String
Dim mid As String
Dim kid As String
Dim pid As String
Dim table_name As String

table_name = "Assign Hardware"
eid = [Employee ID].Column(0)
bid = [Base Unit ID]
mid = [Monitor ID]
kid = [Keyboard ID]
pid = [Printer ID]

Dim query As String
'query = "INSERT INTO " & table_name & "(Employee ID,Base Unit ID,Monitor ID,Keyboard ID,Printer ID) VALUES (" & eid & "," & bid & "," & mid & "," & kid & "," & pid & ");"
query = "INSERT INTO [Assign Hardware] VALUES (" & eid & "," & bid & "," & mid & "," & kid & "," & pid & ");"
Debug.Print "Employee ID: " & eid
Debug.Print "Base Unit ID: " & bid
Debug.Print "Monitor ID: " & mid
Debug.Print "Keyboard ID: " & kid
Debug.Print "Printer ID: " & pid
'DoCmd.RunSQL (query)
db.Execute (query)

End Sub


Any ideas?

[OBP]

See my email.