如何设置组合框或列表框的行来源为函数

会计考友

如何设置组合框或列表框的行来源为函数
) D- U" H' m8 \4 a) r　下列代码是一个例程，将行来源设置为这个函数：
　　Public Function valueList(ctl As Control, _
" n/ v" d# m3 o8 Z　　varID As Variant, _
3 Q5 D# F; u$ F+ B6 L4 `$ [" u0 ^　　lngRow As Long, _
　　lngCol As Long, _
* ~1 W5 e1 ^, b7 u" Z5 }1 N' i* P　　intCode As Integer) As Variant
　　Dim varRetVal As Variant
+ T1 o; D; C) l7 C' O( _　　Dim strField As String
! O  u8 t+ M0 a# D　　Dim strField As String
7 u" u& b; c, v3 c+ u) ~　　Dim strSQL As String
　　Dim strList As String
　　Dim intLoopRow As Integer
. l+ U( U  x: L& G( x9 X7 u7 l　　Dim intLoopCol As Integer
" o. V8 R9 {' I　　Dim cnn As ADODB.Connection
　　Dim RST As ADODB.Recordset
8 ?/ t$ ~1 N. p5 u　　Static svarArray() As Variant
% ?; z# y# P* z* a/ C6 M; ~　　Static sintRows As Integer
7 a: R+ O: ]& x9 s　　Static sintCols As Integer
! D! M: z+ W- o& Q0 n, V　　On Error GoTo Proc_err
　　Select Case intCode
　　Case acLBInitialize
& l9 ?9 M6 L7 O" G　　On Error Resume Next
  N/ |/ f) Y9 L4 [9 P( C! \0 W# i　　intLoopRow = Ubound(svarArray)
　　If Err  0 Then
" x4 G9 C& C! c7 [& ~　　On Error GoTo Proc_err
　　'populate the customer recordset
　　Set cnn = New ADODB.Connection
0 R* z' }7 N- m; H1 j　　cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
9 _4 X: V) P3 e; Y3 ?  c1 W, i7 P) D　　cnn.Properties("Data Source") = CurrentProject.Path & "\data share\data.dat"
　　cnn.Properties("Jet OLEDB:Database Password") = "123456789222"
　　cnn.Open
　　' With cnn
4 o! n% h/ T* v　　'.Provider = "Microsoft.Jet.OLEDB.4.0"
, R! O, w* G5 ^　　'this gets stored values from the only
　　'local table to allow flexibility
　　'.ConnectionString = CurrentProject.Path & "\data.dat" 'should be changed
　　'.Properties("Jet OLEDB:Database Password") = "123456789222"
　　'.Open
　　'End With
5 ^& d6 W" e! E: `/ F　　Set RST = New ADODB.Recordset
　　With RST
　　.ActiveConnection = cnn
, [4 ?6 v) B& ?, f　　.Source = "select usysuser.userid,usysuser.username from usysuser" 'should be changed
　　.CursorLocation = adUseClient
　　.CursorType = adOpenDynamic
　　.LockType = adLockReadOnly
　　.Open , , , , adCmdText
　　.MoveLast
　　sintRows = .RecordCount
* r* I9 F( L( N- e2 d/ T2 c+ N　　.MoveFirst
　　sintCols = .Fields.Count
) L' i! r9 ^$ F. L( T3 n) ~# A　　End With 'rst
) E# g5 K/ F- ~$ |6 L　　Set cnn = Nothing