未显示ADODB Recordset的字段

Question

I have an ADODB recordset which I passed from a module to a form. I need to show the existing fields of the recordset, but it does not seem to work. The recordset is passed successfully, as a quick Debug.Print shows. Here is my code:

Module:

Public Sub dofilter() 
   ...
   With ADORec
     Set .ActiveConnection = ADOConn
     .Source = SQL
     .LockType = adLockReadOnly
     .CursorType = adOpenKeyset
     .CursorLocation = adUseClient
     .Open
   End With

   Call Form_FormA.setrst(ADORec)
End Sub

And then in FormA:

Public Sub setrst(ByVal rst As ADODB.Recordset)
    Set Me.Recordset = rst
    Me.txtField.ControlSource = rst.Fields("ID").Name
End Sub

The ID field in the Form is still empty. I hope you guys can help.

Answer 1

First of all I'd recommend to have a look at the documentation of ControlSource . This property is not the right one to fill the textbox from a recordset.

And then I'd replace Me.txtField.ControlSource = rst.Fields("ID").Name with Me.txtField.value = rst.Fields("ID").Name . This is probaly what you want.

Another recommendation is not to use the global default instance of a userform

Update : Based on the comment you need a listbox if you want to display all records and the following line of code ListBox1.Column = rst.GetRows . You should define the listbox with enough columns.