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
fSSF.cbxCountry.AddItem oADO(1)
oADO.MoveNext
Loop
fSSF.cbxCountry.ListIndex = 0
Set oADO = Nothing
oConnection.Close