Dim conn As ADODB.Connection
conn.ConnectionString = Adodc1.ConnectionString
conn.Open
conn.Execute "delete from tablename"

注意没有*

是的，看看参数有没有正确