Lotus Notes - ODBC Urgente!!!

Por favor alguien sabe como se hace para insertar en una base de datos access unos datos tomados de unos campos?. Yo estoy intentando con esto pero no funciona, gracias y saludos.

Sub Click(Source As Button)
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim Apellido As String
Dim msg As String

Set qry.Connection = con
Set result.query = qry
con.ConnectTo ("Insertar")
qry.SQL = "Insert into Tabla1 (Campo1, Campo2) Values (mete1, mete2)"
result.Execute
Messagebox (result.IsresultSetAvailable)
If result.IsresultSetAvailable Then
Messagebox "bien"
result.Close (DB_CLOSE)
Else
Messagebox "No pueder serrr"
Exit Sub
End If
con.Disconnect
End Sub