Connecter une bdd sql à des userform excel, faire des mises à jours dans ces userform

voici la connection à ma base, je ne sais pas si elle bonne:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
'Déclaration des variables globales
 
Public ConBdd As New ADODB.Connection
Public RsBdd As New ADODB.Recordset
Public CmdBdd As New ADODB.Command
Public Const ChCon = "BaseIncidents"
'Verifier si la connexion est ouverte et l'etablit
Public Sub OuvBase()
    If ConBdd.State = adstatedclosed Then
        With ConBdd
        .ConnectionString = ChCon
        .Open ChCon
        End With
    End If
End Sub
 
Public Sub CmdBase()
CmdBdd.ActiveConnection = ConBdd
End Sub
 
'verifie et ferme la connexion si elle est ouverte
Public Sub FermBase()
    If ConBdd.State = adStateOpen Then
        ConBdd.Close
        Set ConBdd = Nothing
    End If
End Sub