INSERT.. query

[Laura]

If you are using ADO:

Dim gCn As ADODB.Connection
Dim strSQL As String
Dim sConnString As String
Dim sDataSource As String

sDataSource = DATABASE PATH

sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sDataSource & ";" & _
"Jet OLEDBatabase Password=IF THERE IS A
PASSW;"

Set gCn = New ADODB.Connection
gCn.Open sConnString

strSQL = "INSERT INTO table1 (Field1, Field2) "
strSQL = strSQL & VALUES (Value1, Value2)"

gCn.Execute strSQL