Option Strict On Option Explicit On Imports System.Data.OleDb
Dim mydatabase As String = "C:\hgfd\nws.mdb" Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mydatabase Dim cnn As OleDbConnection = New OleDbConnection(connectionString) Dim cmd As OleDbCommand ' Pour supprimer un enregistrement précis Dim sql As String = " DELETE * FROM T2 " & _ " WHERE [numeropor] LIKE '%" & txtCommand.Text.Trim() & "%'" ' Pour supprimer tous les enregistrements 'Dim sql As String = " DELETE * FROM T2 " Try cnn.Open() cmd = New OleDbCommand(sql, cnn) cmd.ExecuteNonQuery() cmd.Dispose() cnn.Close() MessageBox.Show("ExecuteNonQuery in OleDbConnection executed !!") Catch ex As Exception MessageBox.Show("Can not open connection ! ") End Try