Do While Not AdoRec.EOF
AdoRec.delete
AdoRec.MoveNext
Loop
Const adCmdText = &H0001
Const adExecuteNoRecords = &H00000080
strConnectionString="Provider=Microsoft.jet.OLEDB.4.0;data Source=آدرس فايل"
set cnn = server.CreateObject("ADODB.connection")
cnn.Open strConnectionString
strSQL=" " 'عملي كه بايد با استفاده از SQL انجام بشود
cnn.Execute strSQL,,adCmdText+adExecuteNoRecords
cnn.Close
set cnn=nothing