in ADO you could do this:

VB Code:
  1. RS.Open = "SELECT * FROM tblCompany WHERE RecNum = '" & CurrRecNum & "'", conn, adOpenStatic, adLockOptimistic

  2.         

  3. For i = 0 To RS.Fields.Count

  4.   txtDisplay(i).Text = RS.Fields(i).Value

  5. Next i

/me spits on DAO