Imports System.Data.OleDb
 
Public Class Form1
    Private ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
      "Source=D:\MeineDatenbank.mdb;"
    Private Con As New OleDbConnection(ConStr)
 
    Private Sub TabelleLeeren_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TabelleLeeren.Click
        Dim cmd As New OleDbCommand
 
        Try
            Con.Open()
            cmd = New OleDbCommand("DELETE FROM DeineTabelle", Con)
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            Con.Close()
        End Try
 
    End Sub
End Class