Debug: Insert data into Access from Excel

[yxz152830]

Gurus, what's wrong with the code. Feedback shows that insert into statement contains errors. Thanks!

Sub asdasd()
Dim dataconnection As New ADODB.Connection
Dim operator1 As String
dataconnection.Open "provider=microsoft.jet.oledb.4.0;  data source =" & ThisWorkbook.path & "/database/accessdata.mdb"
operator1 = " insert into Employee values(2021, 'donald trump' , 66 ,'female') "
dataconnection.Execute operator1
dataconnection.Close
Set dataconnection = Nothing
End Sub

 

[RoryA]

What is the actual error message?

 

[yxz152830]

What is the actual error message?

run time error 2147217900(80040e14)

 

[RoryA]

Is that the full message? Which line causes it?

If you use that syntax, you must supply values for all the fields in the table.