I don't know why I get a type mismatch( cmbcountry.AddItem rs.Fields(0) )

**jondulz** · Feb 18 '14, 07:57 AM

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
        MsgBox "I was not able to find any unique Country.", vbCritical + vbOKOnly
        Exit Sub
    End If

I'm doing a database using VB-SQL thru MS excel... I dont know why I always get a type mismatch...