[العواجي]

احواني السلام عليكم
اريد كود حذف كل السجلات من قاعدة البيانات 
ارجوكم

[messry]

كود :

           Dim cm1 As New OleDbCommand("Delete * From yourtable", yourcon)
           Dim da1 As New OleDbDataAdapter(cm1)
           Dim ds1 As New DataSet("Coin")
           Try
               da1.Fill(ds1, "Coin")
           Catch ex As Exception
               MessageBox.Show(ex.Message)
               Exit Sub
           End Try

تفضل اخي