Dim access As adodb.Connection
Dim Myrecord As adodb.Recordset
Set access = New adodb.Connection
access.Provider = "Microsoft.Jet.Oledb.4.0"
access.ConnectionString = App.Path & "\GPI6.mdb"
access.Open
SQL = "SELECT ordi_salle,ordi_nom FROM ordi1 where ordi_ip='" & ip.Text & "'"
Set Myrecord = New adodb.Recordset
Myrecord.Open SQL, access, adOpenDynamic, adLockOptimistic
On Error Resume Next
List3.AddItem (Myrecord(0).Value)
List1.AddItem (Myrecord(1).Value)
access.close