Dim conn As OleDbConnection = New OleDbConnection( _
          "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\ang.mdb;")
 
        conn.Open()
 
        Dim sql As New OleDb.OleDbCommand("DELETE * FROM Betrieb WHERE ID =" + _
          CStr(DeleteID), conn)
 
        sql.ExecuteNonQuery()
 
        MsgBox("DS gelöscht!")
 
        conn.Close()