مشکل با حذف رکوردها و کد نویسی adodb دارم

[m_vb1386]

Dim str_cnn As New ADODB.Connection
Dim str_recs As New ADODB.Recordset
Private Sub Command1_Click()
str_recs.Close
str_recs.CursorLocation = adUseClient
str_recs.Open "delet * from table1", str_cnn, adOpenKeyset, adLockBatchOptimistic, adCmdText
Set DataGrid1.DataSource = str_recs
End Sub
Private Sub Form_Load()
str_cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
str_recs.CursorLocation = adUseClient
str_recs.Open "select * from table1", str_cnn, adOpenKeyset, adLockOptimistic, adCmdText
Set DataGrid1.DataSource = str_recs
End Sub


مشکل برنامه من چیه که نمیتونم رکوردهای جدولم رو حذف کنم
برنامه رو هم همینجا گذاشتم که اگه بتونید اصلاحش کنید
ممنون

[saed2006]

دوست عزیز شما فیلد شما در بانکbarcodkala است در حالی که در برنامه فیلد barcod نوشتی که وجود ندارد.نام فیلد را هم نام فیلد بانک کن تا برنامه کار کند.