Private Sub Form_Load()
  With Data1
    .DatabaseName = "Datenbank.mdb"
    .RecordSource = "SELECT * FROM Tabelle WHERE ... ORDER BY Name"
    .Refresh
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de