پاک کردن کلیه رکوردهای یک جدول

سلام
من یک جدول توی دیتابیسم دارم که میخوام از طریق متد ado و توی vb با زدن یک دکمه تمام سطرهای جدولمو حذف کنه کد زیر را نوشتم ولی به من جوای نمیده نمیدونم چرا؟؟؟؟؟؟؟؟
لطفا منو راهنمایی کنید
مرسی:5:

Dim sql As String
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=data;Data Source=sh"
sql = "delete * FROM table3"
rst.Open sql, cnn, adOpenKeyset, adLockOptimistic, adCmdText
rst.Close
cnn.Close
Set cnn = Nothing
Set rst = Nothing

کد:

---

Dim sql As String
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=data;Data Source=sh"
sql = "delete table3"
rst.Open sql, cnn, adOpenKeyset, adLockOptimistic, adCmdText
rst.Close
cnn.Close
Set cnn = Nothing
Set rst = Nothing

---

این رو تست کن

سلام
ممنونم
فقط با حذف rst.close جواب گرفتم چون با وجود ان error زیر رو می دهد

operation is not allowed when the object is closed

اگه ممکنه بگین اینو چجوری برطرف کنم؟:20:

سلام :
شما مي تونيد با استفاده از كد SQL و وارد كردن آن در قسمت Comman Type در سربرگ Record Set خاصيت adcmdtext را انتخاب كرده و كد SQL زير را وارد كنيد. DELET ALL * FROM TBLSTUDENT