Sub ColumnsBound()
  Dim rs As New Recordset
  Dim fldId, fldFName, fldLName
  rs.ActiveConnection = "Provider=SQLOLEDB;Data Source=sureshk1; _ 
Database=pubs;User Id=sa;Password=;"
  rs.Source = "select au_id, au_fname, au_lname from authors"
  rs.Open
  Set fldId = rs.Fields(0)
  Set fldFName = rs.Fields(1)
  Set fldLName = rs.Fields(2)
  While Not rs.EOF
    Debug.Print fldId.Value, fldFName.Value, fldLName.Value
    rs.MoveNext
  Wend
End Sub
 
Sub ColumnsNotBound()
  Dim rs As New Recordset
  Dim fldId, fldFName, fldLName
  rs.ActiveConnection = "Provider=SQLOLEDB;Data" & _
    "Source=sureshk1;Database=pubs;User Id=sa;Password=;"
  rs.Source = "select au_id, au_fname, au_lname from authors"
  rs.Open
  While Not rs.EOF
    Debug.Print rs("au_id"), rs("au_fname"), rs("au_lname")
    rs.MoveNext
  Wend
End Sub