如何利用 VB 的 ADO 对象，删除 SQL 数据库中表的所有数据？

我用了以下几种方法
1．
Set cnn1 = New ADODB.Connection
strCnn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa;Initial Catalog=pk;Data Source=9SCRIGAU5K4KT9K"
cnn1.Open strCnn

Set rstqnkmxx = New ADODB.Recordset
rstqnkmxx.CursorType = adOpenStatic
rstqnkmxx.LockType = adLockPessimistic
rstqnkmxx.Open "qnkmxx", strCnn, , , adCmdTable

If MsgBox("是否真的要重新设置科目？", 36, "提示") = vbYes Then
cnn1.Execute ("delete * from qnkmxx")
End If
运行后无任何报错，但无法删除数据表中的数据
2．
strSql = "drop table qnkmxx"
If MsgBox("是否真的要重新设置科目？", 36, "提示") = vbYes Then
   rstqnkmxx.Open strSql, cnn1, , , -1
  
End If
运行后无任何报错，但无法删除数据表中的数据
请高人指教，谢谢