Problème création table en ADO

Bonjour voila j'ai un petit soucis, je développe une petite appli en VB.net, j'ai créer une classe Connexion mais j'ai un petit soucis au niveau de la création de la table USERS.

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
Public Class connexion
    ' chemin de la base de donnée
    Private chemin As String = Application.StartupPath & "\" & "Data_base" & ".accdb"
    'parametrage de la chaine de connection
    Private cnxstr As String = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & chemin & ";"
    Private db As New ADOX.Catalog
    ' objet pour requête SQL
    Private cmd As New OleDbCommand
    'création de l'objet connection
    Private cnx As New OleDbConnection
 
'Ouvrir connection à la B D D
    Private Sub Open_connection()
        Try
            cnx.ConnectionString = cnxstr
            cnx.Open()
        Catch ex As Exception
            MsgBox("Erreur de connection à la Base" & vbCrLf & ex.Message, , "Erreur")
        End Try
    End Sub
 
    'Fermeture connection à la B D D
    Private Sub Close_connection()
        Try
            cnx.ConnectionString = cnxstr
            cnx.Close()
        Catch ex As Exception
            MsgBox("Erreur de connection à la Base" & vbCrLf & ex.Message, , "Erreur")
        End Try
    End Sub
 
    'créer la B D D
    Public Sub Create_base()
        Try
            db.Create(cnxstr)
            Open_connection()
            Try
                cmd.CommandText = "CREATE TABLE USERS (LOGIN CHAR(8) NOT NULL PRIMARY KEY,MDP CHAR(8) NOT NULL,QUESTION VARCHAR(32) NOT NULL,REPONSE CHAR(8) NOT NULL)"
                cmd.ExecuteNonQuery()
                Close_connection()
            Catch ex As Exception
                MsgBox("Erreur de création table USER" & vbCrLf & ex.Message, , "Erreur")
            End Try
 
        Catch ex As Exception
            MsgBox("Erreur de création base" & vbCrLf & ex.Message, , "Erreur")
        End Try
    End Sub
End Class

Comme message d'érreur j'ai ExécudeNonQuery, connection non initialisé.

Pour ma fonction Open_connection ne renvoie d’erreur je suppose quel est correct.