Private Sub UserForm_Initialize()
Dim dCountry As Dictionary: Set dCountry = CreateObject("Scripting.Dictionary")
Set oConnection = New ADODB.Connection
oConnection.Open DatabasePath
Set oADO = New Recordset
With oADO
.CursorLocation = adUseClient
.ActiveConnection = oConnection
.CursorType = adOpenStatic
.LockType = adLockOptimistic
sQuery = ""
sQuery = sQuery & "SELECT "
sQuery = sQuery & " C.fId, "
sQuery = sQuery & " C.fName "
sQuery = sQuery & "FROM "
sQuery = sQuery & " tCountry C "
sQuery = sQuery & "ORDER BY "
sQuery = sQuery & " C.fName ASC "
.Source = sQuery
.Open
End With
Do While Not oADO.EOF
dCountry.Add oADO(0), oADO(1)
oADO.MoveNext
Loop
Me.cbxCountry.List = dCountry.Items
Me.cbxCountry.ListIndex = 0
Set oADO = Nothing
oConnection.Close
End Sub