u menja stoit MSVS 6.0,WinXP,Office 2003 proga ne nachodit DB
probywal s DAO 2.5/3.5 /3.51 & 3.6

Private Sub Form_Load()
Dim bank As Database
Dim rst As Recordset
Dim fld As Field
Set dbs = OpenDatabase("C:\Dokumente und Einstellungen\a\Desktop\bank.mdb")
Set rst = dbs.OpenRecordset("Tab1")
Set fld = rst.Fields("FELD1")
Form1.Text1.Text = fld("select FELD1 from Tab1")
'Set rst = dbs.OpenRecordset("select FELD1,FELD2,FELD3,FELD4 from Tab1 where ID=")
'dbs.Recordset.MoveLast
'MsgBox "Datensätze: " & dbs.Recordset.Text
'Debug.Print "Recordset vom Typ Tabelle: " & .Name
'Text1.rst ("select FELD1 from Tab1")
rst.Close
dbs.Close