Créer un fichier Access avec ADOX

Bonjour à tous,
J'ai un message d'erreur "Type Non Valide" dans ma procédure et je ne vois vraiment pas d'ou peux venir le problème, vous pouvez m'aider ?

Voici la procédure :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    Public Sub CreateBase()
        Dim strFilePathName As String = "C:\Temp\Base.mdb
        Dim Catalog As New ADOX.Catalog
        Dim MaTable As New ADOX.Table
 
        Dim Connstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & strFilePathName & ";Jet OLEDB:Database Password="1234;"
 
        Catalog.Create(Connstr)
 
        MaTable.Name = "Table1"
        MaTable.Columns.Append("Colonne1", DataTypeEnum.adChar, 30)
 
        Catalog.Tables.Append(MaTable)  ' -> Erreur : Type Non Valide
 
        MaTable = Nothing
        Catalog = Nothing
        MessageBox.Show("Table created!")
    End Sub