Vb et connexion access2003

Dim dbs As Object 
Set dbs = CreateObject("ADODB.Connection") 
fichier = "C:\myDB.mdb" 
dbs.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _ 
                "data source=" & fichier & ";"

Option Explicit

Private AdoCnx As ADODB.Connection
Private rs As Recordset
Private CmdSql As ADODB.Command

'Chemin de la base de donnée à mettre ci dessous
Private Const BDD = "C:\bd\maBase.mdb"

Public Function ConnectBdd()
Dim CnxString As String

On Error Resume Next

Set AdoCnx = New ADODB.Connection

If AdoCnx.State = adStateOpen Then
    MsgBox "La connection est déjà ouverte"
    Exit Function
End If

        '======== Ouverture Access ============'
        
CnxString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=" & BDD & ";" & _
                   "Persist Security Info=False"

AdoCnx.Open CnxString
AdoCnx.CursorLocation = adUseClient

    'Gestion de l'exception
    If Err <> 0 Or AdoCnx.State = adStateClosed Then
        MsgBox "Connection impossible avec la base"
        Exit Function
    End If

End Function

'Passage d'une requete par un recordset. Le recordset est passé en référence dans les paramètres de la fonction
Public Function OuvrirRecordset(ByVal Requete As String, ByRef rs As ADODB.Recordset) As Boolean
    
On Error Resume Next

  
    On Error Resume Next
    rs.Open Requete, ModBdd.AdoCnx, , , adCmdText
    
    If Err > 0 Then
        OuvrirRecordset = False
        Exit Function
    End If
    
    rs.MoveFirst
    OuvrirRecordset = True
    
End Function


'Fonctions permettant de parcourir un recordset passé en paramètre.
Public Function RSLireSuivant(ByRef rs As ADODB.Recordset) As Boolean

    On Error Resume Next
    rs.MoveNext
    If rs.EOF Then
        RSLireSuivant = False
        Exit Function
    End If
    
    If Err <> 0 Then
        RSLireSuivant = False
        Exit Function
    End If
    
    RSLireSuivant = True
    
End Function

Public Function RSLirePrecedent(ByRef rs As ADODB.Recordset) As Boolean

    On Error Resume Next
    rs.MovePrevious
    If rs.BOF Then
        RSLirePrecedent = False
        Exit Function
    End If
    
    If Err <> 0 Then
        RSLirePrecedent = False
        Exit Function
    End If
    
    RSLirePrecedent = True
    
End Function

Public Function RSLirePremier(ByRef rs As ADODB.Recordset) As Boolean

    On Error Resume Next
    rs.MoveFirst
    If Err <> 0 Then
        RSLirePremier = False
        Exit Function
    End If
    
    RSLirePremier = True
    
End Function

Public Function RSLireDernier(ByRef rs As ADODB.Recordset) As Boolean

    On Error Resume Next
    rs.MoveLast
    If Err <> 0 Then
        RSLireDernier = False
        Exit Function
    End If
    
    RSLireDernier = True
    
End Function