Vb 6: MSFlexGrid et base de données par DAO

Public connect As New ADODB.Connection
Public rs As New ADODB.Recordset
Sub opendb()
    If connect.State = adStateOpen Then connect.Close

    locate = App.Path & "\essai.mdb" & ";Jet " & "OLEDB:"
    connect.CursorLocation = adUseClient
    connect.Open "provider=microsoft.jet.oledb.4.0;" + "data source =" & locate & ";" + "persist security info = false"
End Sub
Sub openrs()
    rsuser.Open "employers", connect, adOpenKeyset, adLockOptimistic
End Sub

Sub openall()
    opendb
    openrs
End Sub

Dim db As Database
Dim rs As Recordset
 
' Ouverture de la base de données
Set db = OpenDatabase("C:\Documents and Settings\etudiant_uva\Bureau\gtf\access\essai.mdb", dbDriverNoPrompt, False, "ODBC;DSN=TestDB")
 
' Execution de la requete sur la base de donnees.
Set rs = db.OpenRecordset("select * from employers", dbOpenDynamic, 0, dbOptimistic)
 
flxGd.DataSource = rs
 
' Parcours des enregistrements de la table
rs.MoveFirst
While Not rs.EOF
    rs.MoveNext
Wend
 
' Fermeture du Recordset.
rs.Close
 
' Fermeture de la base de données
db.Close