Code:
Private Sub Button1_Click()
strSQL = "Select Distinct [Country] From [Data$] Order by [Country]"
    closeRS
    OpenDB
    cmbcountry.Clear
    
    rs.Open strSQL, cnn, adOpenKeyset, adLockOptimistic
    If rs.RecordCount > 0 Then
        Do While Not rs.EOF
            cmbcountry.AddItem rs.Fields(0)
            rs.MoveNext
        Loop
    Else
...