Private Sub TestDB()
 
        Dim con As New OleDb.OleDbConnection
        Dim da As OleDb.OleDbDataAdapter
 
        Dim dbprovider As String = "Provider=Microsoft.ACE.OLEDB.12.0;" _
          'Microsoft Datenbankmodul festlegen
        Dim dbsource As String = "U:\12 - ProjectList\ProjectGuideExtern.accdb" _
        'Pfad zur Access-Datenbank
 
        con.ConnectionString = dbprovider & dbsource 'Funktion für den 
        ' Verbindungs-String
        con.Open() 'Verbindung zur Datenbank öffnen
        MsgBox("Verbindung zur Datenbank wurde hergestellt!") 'Bestätigung
 
    End Sub