Private Sub CommandButton3_Click()
'necessite d'activer la reference Microsoft ActiveX Data Objects x.x Library
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Chemin As String, Cible As String, laBase As String
Chemin = 'C:\\evolution'
laBase = 'societes.dbf'
Set Cn = New ADODB.Connection
Cn.Open _
'Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=' & _
Chemin & ';'
Cible = 'SELECT DATEDEB,DATEFIN FROM ' & laBase & ';'
Set Rs = New Recordset
Rs.Open Cible, Cn, adOpenKeyset, adLockOptimistic
With Rs
.AddNew
.Fields(0) = ComboBox1.List(ComboBox1.ListIndex, 2) ''DATEDEB
.Fields(1) = ComboBox1.List(ComboBox1.ListIndex, 3) ''DATEFIN
.Update
End With
Rs.Close
Cn.Close
End Sub