Private Sub Utilisateurs_Change()
Dim sql As String
strDBTable = "site"
Set oWorkSpace = CreateWorkspace(Name:="JetWorkspace", _
UserName:="admin", Password:="", UseType:=dbUseJet)
Set oDataBase = OpenDatabase(strDB)
sql = "Select service from ficheuser2 Where Utilisateurs='" _
& Me.Utilisateurs & "'"
MsgBox sql
Set oRecordSet = oDataBase.OpenRecordset(sql)
fiche.Service = oRecordSet("service")
End Sub
JB