Microsoft 365 connexion ado vers access office 2024 64 bits

bonsoir je suis perdu
j ai mis ce code dans le module
Option Explicit

Public cn As Object

Public Sub ConnexionAccess()
Dim cheminAcces As String

' Chemin complet de la base Access
cheminAcces = Environ("USERPROFILE") & "\C:\Users\kaid\Desktop\superette2025\superette2025.accdb"

' Création de l'objet ADODB.Connection
Set cn = CreateObject("ADODB.Connection")

' Ouverture de la connexion
On Error GoTo ErreurConnexion

MsgBox "Connexion réussie à la base de données.", vbInformation
Exit Sub

ErreurConnexion:
MsgBox "Erreur de connexion : " & Err.Description, vbCritical
End Sub

connexion reussi vers access mais quand je met le code sur textbox codebarre pour qu'il m affiche les donnees de ma table access
msg erreur rs.Open sql, cn, adOpenStatic, adLockReadOnly

Private Sub TxtCodeBarre_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim sql As String
Dim rs As ADODB.Recordset

If Trim(TxTCodeBarre.Text) = "" Then Exit Sub

sql = "SELECT * FROM Produit WHERE Code_Barre='" & TxTCodeBarre.Text & "'"

Set rs = New ADODB.Recordset
rs.Open sql, cn, adOpenStatic, adLockReadOnly

If Not rs.EOF Then
TxTNomProduit.Text = rs!Nom_Produit
TxTPrixVente.Text = rs!Prix_Vente
TxTQuantite.Text = "1"

With LstNouvelleVente
.AddItem rs!Code_Barre
.List(.ListCount - 1, 1) = rs!Nom_Produit
.List(.ListCount - 1, 2) = rs!Prix_Vente
.List(.ListCount - 1, 3) = TxTQuantite.Text
End With
Else
MsgBox "Produit introuvable", vbExclamation
End If

rs.Close
Set rs = Nothing
End Sub
Merci