Public connect As ADODB.Connection
'Subroutine de connection
Sub ConnDB(ByRef connect As ADODB.Connection, ByVal cheminBase As String)
connect.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & cheminBase & _
";Persist Security Info=False;"
connect.CursorLocation = adUseClient
connect.Open
End Sub
'Subroutine principal
Sub Main()
Dim rs As New ADODB.Recordset 'Déclaration du recordset
Set connect = New ADODB.Connection 'Déclaration de la connection
ConnDB connect, "c\.....\Base.accdb" 'connection à la base
requete = "SELECT * FROM Modes" 'requete sql"
'je mets le CursorType sur adOpenKeySet pour pouvoir utiliser la fonction RecordCount
rs.Open requete, connect, adOpenDynamic, adLockBatchOptimistic
nbre_ligne = rs.RecordCount
rs.MoveFirst
rs.Close
End Sub