Simpler:

Dim cnn As Object
Set cnn = CreateObject("ADODB.Connection")
cnn.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Data\Access\contacts.mdb;" & _
"Persist Security Info=False"
cnn.Execute _
"INSERT INTO Contacts (first,last) VALUES ('Dave','Patrick')"
Jamie.

--