dim cngestion As New ADODB.Connection
dim rsgestion As ADODB.Recordset
'Procedure de connection à la base '
cngestion.ConnectionString = " Provider=Microsoft.Jet.oledb.4.0;data source=c:\...."
cngestion.open
'Procedure d'initialisation du recordset '
Set rsgestion = New ADODB.Recordset
rsgestion.CursorLocation = adUseClient
rsgestion.open "select * from ...", cngestion, adOpenDynamic,adLockOptimistic
'Alimentation des zones du formulaire'
Set txtNoprop.DataSource = rsgestion
txtNoprop.DataField = "noprop"
Set txtNom.DataSource = rsgestion
txtNom.DataField = "Nom"
Set txtPrenom.DataSource = rsgestion
txtPrenom.DataField = "prenom"
Set txtAdres.DataSource = rsgestion
txtAdres.DataField = "adresse"
[jfdsdjhfuetppo]--Message édité par kvl--[/jfdsdjhfuetppo]