Option Explicit > >Private cnn1 As ADODB.Connection >Private rsCust As ADODB.Recordset > >Private Sub Command1_Click() > rsCust.Open "Select * from employees", cnn1, adOpenKeyset, adLockOptimistic > Set DataGrid1.DataSource = rsCust > DataGrid1.Refresh >End Sub > >Private Sub Command2_Click() > With rsCust > .AddNew > !LastName = "Moreau" > !FirstName = "Eric" > !Title = "Analyst, programmer" > End With >End Sub > >Private Sub Form_Load() > Set cnn1 = New ADODB.Connection > Set rsCust = New ADODB.Recordset > > cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Projets VB\NWIND.mdb;Persist Security Info=False;" > cnn1.CursorLocation = adUseClient > cnn1.Open >End Sub >