vb adodc能读取表数据,但记录集记录为0

VB通过Sql结构化查询语句中Delete子句，赋值给Adodc数据控件的RecordSource 属性，来执行删除数据库一个表的所有记录。
RecordSource 属性，返回或设置Data控件的基本表、SQL语句。
SQL 语句：

SQL 中的以关键字打头、完整描述一个操作的完整的短语。例如：SELECT * FROM Orders。SQL 语句不应和语句混淆。
以下是删除wd.mdb数据库的jishijilu记录表的所有记录的代码：

1
2
3
4
5
6
7
8
9
10

Private Sub Command1_Click()
Dim sql As String
On Error GoTo error
sql = "delete * from jishijilu"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\wd.mdb;Persist Security Info=False"
Adodc1.RecordSource = sql
Adodc1.Refresh
Exit Sub
error:
End Sub