Private Rs As ADODB.Recordset  
Private sDBName As String 
Private fField As Field     
[...]
 
Private Sub Form_Initialize() 
  [...]
  sDBName = getDBName  
  setDB sDBName
  [...]
End Sub
 
Private Sub setDB(ByVal sDBName As String)
  Set Rs = adoData.Recordset
  adoData.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
    sAppPath & "\" & sDBName & ";Persist Security Info=False"
  adoData.Refresh
  For Each fField In Rs.Fields
    cboSort.AddItem fField.Name
  Next
  cboSort.ListIndex = 0
End Sub