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