Private Sub ComboCountry_Click()
SQL = "SELECT tblState.State, FROM tblState INNER JOIN tblCountry.iCountryID = tblState.iCountryID WHERE tblCountry.vCountry = '" & comboCountry.Text & "'"
'....execute query, loop through RS to populate comboState...
End Sub

 
'dim strings and integers where possible.  Don't use actual references.
Dim strMyCountry, strCountryBox. strCombo
Dim intX as integer
 
For intX = 0 To cmbCountry.ListCount -1
strMyCountry=myrs!country
strCountryBox=cmbCountry.List(intX)
strCombo=cmbCountry.List(intX)
If UCase$(strMyCountry) = UCase$(strCombo) Then
cmbCountry.text=cmbCountry.List(cmbCountry.List(intX))
Exit For
End If
Next

For intX = 0 To cmbCountry.ListCount - 1
      If UCase$(myrs!country) = UCase$(cmbCountry.List(intX)) Then
            cmbCountry.ListIndex = intX
            Exit For
      End If
Next