classe non enregistrée : création base Access

' Ajout référence : Microsoft ADO Ext. 2.8 for DDL and Security
Imports ADOX

Public Class Connexion

    'attribut chemin de la base
    Private chemin As String = My.Application.Info.DirectoryPath & "\DataBase.accdb"
    'Attribut connexion unique à une source de données
    Private cnx As OleDb.OleDbConnection = Nothing
    'Attribut chaine de connection (fournisseur d'accès aux données + chemin)
    Private cnxstr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & chemin & ";" & "Jet OLEDB:Database Password="

    'retourne vrai si le fichier (base) existe
    Public Function verif_chemin() As Boolean
        Return System.IO.File.Exists(chemin)
    End Function

    'créer la BD access
    Public Sub Create_base(mdp As String)
        Try
            Dim Cat As New Catalog
            'Erreur création base, classe non enregistrée
            Cat.Create(cnxstr & mdp & ";")
        Catch ex As Exception
            Throw New Exception("Erreur création base" & Environment.NewLine & ex.Message)
        End Try
    End Sub
End Class

'Ajout référence au projet DAL
Imports DAL


Public Class Accueil

    Dim connect As New Connexion

    Private Sub Accueil_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If connect.verif_chemin() = False Then
            Linfo.Visible = False
        End If
    End Sub

    Private Sub Bvalider_Click(sender As Object, e As EventArgs) Handles Bsuivant.Click
        connect.Create_base(TBmdp.Text)
    End Sub
End Class

Imports ADOX

Public Class Access_connexion

    'attribut chemin de la base
    Private chemin As String = My.Application.Info.DirectoryPath & "\DataBase.accdb"
    'Attribut connexion unique à une source de données
    Private cnx As OleDb.OleDbConnection = Nothing
    'Attribut chaine de connection (fournisseur d'accès aux données + chemin)
    Private cnxstr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & chemin & ";" & "Jet OLEDB:Database Password="


    'retourne vrai si le fichier (base) existe
    Public Function verif_chemin() As Boolean
        Return System.IO.File.Exists(chemin)
    End Function

    'créer la BD access
    Public Sub Create_base(mdp As String)
        Try
            Dim Cat As New Catalog
            Cat.Create(cnxstr & mdp & ";")
        Catch ex As Exception
            Throw New Exception("Erreur création base" & Environment.NewLine & ex.Message)
        End Try
    End Sub

End Class