Hallo,
tja, ich hab mal vor einiger Zeit sowas realisiert, allerdings aus anderen Beweggruenden heraus, als nur Daten zu lesen, sondern auch um Abfragen und Tabelle zu aendern. Folgendes ist etwas umstaendlich, aber funktioniert ( VB6 und Access97 oder XP):
=-----------------------------------------------------
Dim db As Database
Dim rec As Recordset
Dim docObj as Object
Dim sqlString As String
Set docObj = CreateObject(„Access.Application“)
docObj.Visible = True ’ = False je nach Gusto
docObj.OpenCurrentDatabase („haltDenDateinamen.MDB“)
Set db = docObj.DBEngine.Workspaces(0).Databases(0)
sqlString = " SELECT DISTINCT [" & fieldName & „] From [“ & tblName & „]“ ’ Ist halt ein SQL-Statement, wie jedes andere,
Set rec = db.OpenRecordset(sqlString)
'usw usf
Tschau
Peter
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]