With data_UserSlide
  .DatabaseName = App.Path & "\datenbanken\instandhaltung.mdb"
  .RecordSource = "SELECT * FROM Tabelle"
  .Refresh
End With
 
With fld_UserName
  Set .DataSource = data_UserSlide
  .DataField = "Feldname"
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de