adors.delete 无法删除

Question

If   MsgBox("真的要删除记录？",   vbQuestion   +   vbYesNo,   "提示信息")   =   vbYes   Then 
                Rct1.Delete   1 但无法删除记录 不知是什么问题

Answer 1

   Data1.Recordset.Delete
   Data1.Recordset.MoveNext
 

Answer 2

sql = "select * from schelife "
       Set adors= OpenAdoTb(sql)
       Set DbGrd_TSInfoA.DataSource = adorsadors.delete
执行后就删除不了

Answer 3

Set DbGrd_TSInfoA.DataSource = noting
adors.delete 
adors.Update
Set DbGrd_TSInfoA.DataSource = adors

Answer 4

Set DbGrd_TSInfoA.DataSource = nothing 
.
.
.adors.delete 
adors.Update 
Set DbGrd_TSInfoA.DataSource = adors