客户端处理代码示例
private sub populateListbox()
dim rst as new adodb.recordset, listSource as string
set rst = currentproject.connection.execute ("SELECT id, PhoneNum FROM tblTest")
listSource = ""
While not rst.eof
listSource =listSource & rst(0) & ", " & Format(rst(1), "000-0000") & "; "
rst.movenext
Wend
listbox1.rowsource = listSource
End Sub