我试了下可以 Adodc1.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=E:\AccessDB\Database1.mdb;" Adodc1.RecordSource = "select id from Table1 order by id " Adodc1.Refresh Adodc1.Recordset.AbsolutePosition = 1 Debug.Print Adodc1.Recordset.Fields(0) Adodc1.Recordset.Delete adAffectCurrent
Adodc1.Refresh
Adodc1.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=E:\AccessDB\Database1.mdb;"
Adodc1.RecordSource = "select id from Table1 order by id "
Adodc1.Refresh
Adodc1.Recordset.AbsolutePosition = 1
Debug.Print Adodc1.Recordset.Fields(0)
Adodc1.Recordset.Delete adAffectCurrent