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

[myetteski]

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)