Zugriff auf Access Datenbank mittels VBA

[bancavo]

Zugriff auf Access Datenbank mittels VBScript

Hallo zusammen,

ich versuche schon eine Weile mittels VBA Werte aus einem .mdb file auszulesen.
Habe diesen Beispiel Code im Internet gefunden:

Sub test()
  Dim db1 As Database
  Dim rst1 As Recordset
  Dim i As Integer
  Dim wsshell As Object
  Dim pfad As String

  'DB öffnen
  Set db1 = DBEngine.OpenDatabase("C:\test.mdb")
  'sonstige benötigte Variablen aus DB lesen
  Set rst1 = db1.OpenRecordset("SELECT * FROM NewLayout")
  'Wenn Variablen gelesen wurden, diese im Makro verfügbar machen
  If rst1.RecordCount <> 0 Then
    MsgBox (rst1.Name)
    rst1.MoveFirst
    While rst1.EOF = False
       MsgBox (rst1.Fields("ID").Value)
      rst1.MoveNext
    Wend
  Else

  End If

  'In jedem Fall Abfrage und DB wieder schliessen
  rst1.Close
  db1.Close
End Sub

Wenn ich diesen Code in Powerpoint ausführe dann bekomme ich die Daten, hier z.B. ID. Ich möchte diesen Code aber in einer HTML Datei haben und ausführen. Da bekomme ich eine Fehlermeldung (Anweisungsende erwartet), kommt wegen den Deklarationen ganz oben im Code. Wenn ich die Deklarationen wegglasse, dann bekomme ich eine weitere Fehlermeldung (Objekt erforderlich 'DBEngine).

kann mir einer weiterhelfen wie ich das hier zum laufen bringen kann?

 

[bancavo]

habe das Problem gelöst

 

[KingOfMetropole]

Hey bancavo,

wenn Deine Lösung jetzt funktioniert, dann setzte diese bitte mal hier ins Forum. Habe das gleiche Problem und noch keine Lösung gefunden.

Danke schon mal im Voraus
KingOfMetropole