Option Explicit
Dim dbPfad As String
 
Private Sub Form_Load()
  dbPfad = "c:\temp\myDB.mdb"
  Data1.DatabaseName = dbPfad 
  Data1.RecordSource = "SELECT * FROM ArtikelDB" 
  Data1.Refresh 
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de