'********************************************************************
        ' Datenbank erstellen
 
        Dim objCatalog As Object
 
        If FileExists(strDatei) = False Then
 
          ' ADOX Katalog erstellen
          Set objCatalog = CreateObject("ADOX.Catalog")
 
          ' Datenbank erstellen mit dem Passwort abcde erstellen
          objCatalog.Create "Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Engine" & _
            "Type=5;Data Source=" & strDatei & ";Jet OLEDB:Database" & _
            "Password=abcde"
 
          ' Verweis (Speicher) freigeben
          Set objCatalog = Nothing
        End If

        ' Tabelle Anlagen & Stammdaten erstellen
 
        Dim objConn As ADODB.Connection ' Das Connection-Objekt
        Dim strSQL As String            ' Deklaration der String-Variable strSQL
 
        ' objConn wird als neue Verbindung anerkannt
        Set objConn = New ADODB.Connection
        With objConn
            .CursorLocation = adUseClient
            .Provider = "Microsoft.Jet.OLEDB.4.0"         ' Datenbankformat = 
            ' Access 2000
            .Properties("Data Source") = strDatei         ' Datenbankpfad
            '.Properties("Password") = "abcde"
            .Open                                         ' Verbindung öffnen
        End With