Filling a Combo Box with a Disconnected Recordset

 
Private Sub Form_Load() 
   Dim myRecordset As ADODB.Recordset 
   Dim strRowSource As String 
   Dim strName As String 

   strName = CurrentProject.Path & "\Companies.rst" 

   Set myRecordset = New ADODB.Recordset 
      With myRecordset 
         .CursorLocation = adUseClient 
         .Open strName, , , ,  adCmdFile 
         Do Until .EOF 
            strRowSource = strRowSource & myRecordset!CompanyName & ";" 
            .MoveNext 
         Loop 
         With Me.cboCompany 
            .RowSourceType = "Value List" 
            .RowSource = strRowSource 
         End With 
         .Close 
      End With 
   Set myRecordset = Nothing 
End Sub

1.	Looping Through a Recordset
2.	Retrieve data from Recordset by table column name
3.	Move cursor in result set
4.	Build a string text from result set
5.	Creating a Custom Recordset
6.	Creating a Disconnected Recordset
7.	The Supports Method of the Recordset Object
8.	Using the EOF Property to Determine the Bounds of a Recordset
9.	A Recordset That Does Not Support the RecordCount Property
10.	A Recordset That Supports the RecordCount Property
11.	Whether Records Are Returned in a Recordset
12.	The Sort Property of the Recordset Object
13.	Using the AbsolutePosition Property
14.	Using the Bookmark Property
15.	Refreshing Recordset Data
16.	Assigning Recordsets Dynamically to a form
17.	Set recordset to form
18.	Row order in Dynamic Recordset
19.	Dynamic Recordset
20.	Snapshot Recordset
21.	Set Index and seek the recordset

Filling a Combo Box with a Disconnected Recordset : Recordset « Access « VBA / Excel / Access / Word

Related examples in the same category