why do i get an 'invalid use of property' out of this...

Dim db As Database
Dim rs As Recordset
Dim qdf As QueryDef
Dim strSQL As String

strSQL = "INSERT into table1 SELECT FROM table2 WHERE field = '" & variable & "' "

Set db = OpenDatabase(App.Path & "\database.mdb")

Set qdf = db.CreateQueryDef("")
Set qdf.SQL = strSQL

Set rs = qdf.OpenRecordset(dbOpenSnapshot)

You cannot create a Recordset based on an action query. You can do something like this:

Code:

---

Private Sub Command1_Click()
    Dim db As Database
    Dim strSQL As String

    strSQL = "INSERT into table1 SELECT FROM table2 WHERE field = '" & variable & "' "

    Set db = OpenDatabase(App.Path & "\database.mdb")
    db.Execute strSQL, dbFailOnError
End Sub

---