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