数据库删除记录的问题，急!

Question

dim db as database
Dim lSerialNumber as Long
lSerialNumber = CLng(Trim(TxtSerialNumber.Text))
sql = Trim("delete * from MyTable where serialnumber=" + Str(lSerialNumber))
set db = opendatabase("...")
db.execute sqlhttp://www.xygu.com

Answer 1

sqltmp = "delete from MyTable where serialnumber=" + Str(lSerialNumber))
set db = opendatabase("...")
db.execute sql'注意：delete后无需*号

Answer 2

去掉 *  也是这个错误提示，为什么？
     
改成这个样子还是不对        Dim lSerialNumber as Long
        lSerialNumber = CLng(Trim(TxtSerialNumber.Text))
        sql = Trim("delete from MyTable where serialnumber=" + Str(lSerialNumber))
        Data1.RecordSource = sql
        Data1.Refresh
错误，提示"Invalid Operation",

Answer 3

dim db as database
Dim lSerialNumber as Long
lSerialNumber = CLng(Trim(TxtSerialNumber.Text))
sql = Trim("delete  from MyTable where serialnumber=" + Str(lSerialNumber))
set db = opendatabase("...")
db.execute sql
好像不能用DATA控件执行delete语句吧?