Delete Record +DAO

[davetek]

Hey,

I'm trying to do a basic delete query using DAO....
can anyone see where i'm going wrong...

Dim dbs As Database, rst As Recordset
Dim ssql As String

Set dbs = CurrentDb

ssql = "delete * from Tbl where key = '1';"

Set rst = dbs.OpenRecordset(ssql)

rst.Close

dbs.Close

cheers...

 

[DBAMJA]

You can make this a bit shorter:

Dim dbs As Database
Set dbs = CurrentDb
dbs.Execute "DELETE * FROM Tbl WHERE key = '1';"



DBAMJA

It is said that God will give you no more than you can handle. I just wish God didn't have so much faith in me.