حذف کل اطلاعات جدول

سلامم
من با این کد به sql2005 کانکت میکنم و کار میکنم باجدول و مشکی نداره

ولی چرا وقتی میخوام اطلاعاتکل جدولو با دلیت پاک کنم این ارور رو میده؟:متفکر:

کد


Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & MDIForm1.Text6.Text & ";Data Source=" & ".\SqlExpress" & ""
Adodc1.RecordSource = "delete * from Table1"
Adodc1.Refresh

ارور
ضمیمه 144494

ستاره برو برداره دوست عزیز نیازی نیست (*)

شما می خواهید کل جدول رو پاک کنید پس نیازی نیست.

ستاره رو برمیدارم این ارور میده
ضمیمه 144499

اینم یه تست کن نشد بگو یه سورس داشتم بگردم پیدا کنم مطمنم اون جواب میداد.
اون کانکشنش رو تغییر بده بعد sql خودت

On Error Resume Next
Dim cnn As New ADODB.Connection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB.mdb"
cnn.Open
cnn.Execute "delete * from LogTBL"


cnn.Close

داداش تو اکسس کار میکنه
ولی تو sql2005 این ارورو میده

آقا یه نفر جواب بده خواهشا

اقا من با این مشکلم حل شد
xcon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & MDIForm1.Text6.Text & ";Data Source=" & ".\SqlExpress" & ""
Set con = New Connection
Set rs = New Recordset
con.Open xcon
rs.Open "delete from Table1", con, adOpenStatic, adLockReadOnly
con.Close

با Adodc4 دلیت میکردم جدولو پاک میکرد ولی بعدش اون اروری که عکسشو فرستادم میداد
ولی با این کد مشکلی نداره

من از این کد استفاده میکنم :

If Adodc1.Recordset.State = 1 Then Adodc1.Recordset.Close

Adodc1.Recordset.Open "Truncate Table Table1"

Adodc1.Refresh