Dim cn As New ADODB.Connection Dim rec As New ADODB.Recordset Dim cmdChange As ADODB.Command Dim str As String str = "delete from 你的表;" cn.ConnectionString = "provider = Microsoft.Jet.OLEDB.4.0;Password=;User ID=Admin;Data Source = 你的数据库.mdb" cn.Open Set cmdChange = New ADODB.Command Set cmdChange.ActiveConnection = cn cmdChange.CommandText = str cmdChange.Execute cn.Close Set rec = Nothing
………
data1.recordset.delete
data1.recordset.movenext
'如果不移动标签,它就老删那一条
………
循环结束
Dim rec As New ADODB.Recordset
Dim cmdChange As ADODB.Command
Dim str As String
str = "delete from 你的表;"
cn.ConnectionString = "provider = Microsoft.Jet.OLEDB.4.0;Password=;User ID=Admin;Data Source = 你的数据库.mdb"
cn.Open
Set cmdChange = New ADODB.Command
Set cmdChange.ActiveConnection = cn
cmdChange.CommandText = str
cmdChange.Execute
cn.Close
Set rec = Nothing
delete from 表名