habe ein Problem und zwar ich muss eine Dbf - Datenbank auslesen, nur habe ich leider wenig bzw. fast keine Erfahrung mit VBA um eine verbindung aufzubauen habe ich folgenden Code aufgesetzt:
Sub CommandButton1_Click()
Dim Query1 As Connection
Dim Abfrage As QueryTable
Set Query1 = New Connection
Query1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=mgrtab"
Query1.Open
Abfrage.CommandText = "select * from mgrtab.dbf"
Set Abfrage = Worksheets("Sheet1").Range("A1")
Sql.Retrieve Query1, output, , , True
Sql.Close Query1
und bekomme folgende Fehlermeldung
"Laufzeitfehler 91"
Objektvariable oder Blockwithvariable nicht festgelt
wie geht es richtig?
Zur Info später soll durch eine Maske die,die Kriterien festlegt, einzelne Werte aus der Datenbank gelesen werden.