Option Explicit
Private oConn As ADODB.Connection
Private oRs As ADODB.Recordset
 
Private Sub Form_Load()
  ' Connection erstellen
  ...
 
  ' Recordset erstellen 
  ...
 
  ' Recordset an die Controls binden
  Set sevDataGrid1.Recordset = oRs
 
  Set sevText1.DataSource = oRs
  sevText1.DataField = "Feld1"
  Set sevText2.DataSource = oRs
  sevText2.DataField = "Feld1"
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de