Private Sub cmdFullNames_Click()
Dim rstPeople As ADODB.Recordset
Dim fldFullName As Field
Dim strFullName As String
Set rstPeople = New ADODB.Recordset
rstPeople.Open "People", CurrentProject.Connection, _
adOpenStatic, adLockOptimistic
strFullName = " =-= Full Names =-=" & vbCrLf
With rstPeople
While Not .EOF
For Each fldFullName In .Fields
If fldFullName.Name = "FullName" Then
strFullName = strFullName & fldFullName.Value & vbCrLf
End If
Next
.MoveNext
Wend
End With
MsgBox strFullName
rstPeople.Close
Set rstPeople = Nothing
End Sub