rum time error 3065

Hi,

I wrote this simple code:

Sub DBDELETE_SQL(Path As String, Table As String, SQL As String)

    Dim DB As Database
    Dim RS As Recordset
    
    Set DB = OpenDatabase(Path)
    Set RS = DB.OpenRecordset(Table, dbOpenTable)
    
    DB.Execute SQL
    

    RS.Close
    Set RS = Nothing
    DB.Close
    Set DB = Nothing

End Sub

I call the sub in this manner:

...
SQL = "Select * from History where ID=3 and Date=" & Chr(34) & "2013-03-10 - 2013-03-16" & Chr(34)
Call DBDELETE_SQL("C:\GoogleTrends3.mdb", "History", SQL)
...

I get this error: Run-time-error '3065': Application-defined or object-defined error

What is wrong??

Thank you, for any help!
Lloyd

Hi Norie,

thank you for your fast reply!

"Select * from History where ID=3 and [Date]="2013-03-10 - 2013-03-16""

Causes the same error!

Date is a text field!

I found out Date is a reserved word in SQL, so I renamed the attribute to Datum. But thsi also causes the same error!

Hmm, this does not help, too.

I wrote a new Sub:

Sub DeleteRecordsUsingSQL(Path As String, SQL As String)

    Dim DB As DAO.Database
    Set DB = OpenDatabase(Path)
    DB.Execute SQL, dbFailOnError
    Set DB = Nothing

End Sub

"Delete * from History where ID=3 and [Datum]="2013-03-10 - 2013-03-16""

It works.

Lloyd