Call FillList(dbase, "select personno, " &_
"personname from tblperson order by " & _
"personname;", lstperson)

Sub FillList (theDB As Database, theSQL As _
String, TheList As Control)

On Error Resume Next
TheList.Clear
Call FillListAp(theDB As Database, theSQL as _
String, TheList As Control)

On Error Resume Next
Dim TheSet As RecordSet
Dim inList As String
Dim I As Integer

Set theSet = theDBF.OpenRecordSet(theSQL), _
dbOpenSnapShot)

While Not theSet.EOF
For I = 1 To theSet.Fields.Count - 1
If I = 1 Then
If IsNull(theSet.Fields(I)) Then
inList = "Null"
Else
inList = theSet.Fields(I)
End If
Else
If IsNull(theSet.Fields(I)) Then
inList = inList & Chr(9) & "Null"
Else
inList = inList & Chr(9) & _
theSet.Fields(I)
End If
End If
Next I

TheList.Additem inList
TheList.ItemData(TheList.NewIndex) = _
theSet.Fields(0)
theSet.MoveNext
Wend
theSet.Close
End Sub