Open database met VB

[gcjvanbeek]

Hallo,
Ik probeer een database in een workspace te open om daarna een recordset te definieren en gegevens te vergelijken met een database die al open is en waarin de VB code draait.
Ik heb daartoe MSDN Access Developer Reference bezocht en een voorbeeld gekopieerd in mijn programma. Ik krijg echter een foutmelding in de rood gemaakte lijn(zie bijlage). Aangezien ik met deze materie voor het eerst werk weet ik niet hoe ik verder moet gaan.
Kan iemand mij helpen?

Dim wrkAcc As Workspace
   Dim dbsProef As Database
   Dim dbsNew As Database
   Dim dbsLoop As Database
   Dim prpLoop As Property

   Set wrkAcc = CreateWorkspace("AccessWorkspace", "admin", _
      "", dbUseJet)

   ' Make sure there isn't already a file with the name of
   ' the new database.
   If Dir("NewDB.mdb") <> "" Then Kill "NewDB.mdb"

   ' Create a new database with the specified
   ' collating order.
   Set dbsNew = wrkAcc.CreateDatabase("NewDB.mdb", _
      dbLangGeneral)
   Set dbsProef = wrkAcc.OpenDatabase("D:/Proef.mdb")

   ' Enumerate the Databases collection.
   For Each dbsLoop In wrkAcc.Databases
      With dbsLoop
         Debug.Print "Properties of " & .Name
         ' Enumerate the Properties collection of each
         ' Database object.
         For Each prpLoop In .Properties
        [COLOR="Red"]    If prpLoop <> "" Then Debug.Print "  " & prpLoop.Name & " = " & prpLoop[/COLOR]     
    Next prpLoop
      End With
   Next dbsLoop

   dbsNew.Close
   dbsProef.Close
   wrkAcc.Close

 

[OctaFish]

De foutmeldingen uit de voorbeelden van Office komen vaak doordat de bibliotheken niet goed staan, of de variabelen niet goed gedeclareerd.
Je kunt bijvoorbeeld de declaratie van prpLoop veranderen:

Dim prpLoop

Of de loop

    For Each prpLoop In .Properties
         If prpLoop <> "" Then Debug.Print "  " & prpLoop.Name & " = " & prpLoop     
    Next prpLoop

er in zijn geheel uithalen door er commentaar van te maken bijvoorbeeld.
Het gaat jou tenslotte om het connecten met de db? En dat doet-ie dan blijkbaar wel, want anders was hij wel eerder gecrashed.