Visual Basic - No se xq no funciona, me lo pueden decir?

Hola

cuando cargo el formulario cargo un combobox con nombres de equipos, cuando cliqueo en uno de esos equipos quiero que en otro combobox me cargue los jugadores de ese equipo, la relacion entre las tablas de access de los equipos y jugadores es un digito comun para todos los jugadores del mismo equipo.
Uso el siguiente codigo:

Private Sub grupo_Click()
Dim digito As String
Data2.Recordset.MoveFirst
digito = Mid(equipo.Text, 1, 1)
While Not Data2.Recordset.EOF
If Data2.Recordset.Fields("Dc") = digito Then
jugador.AddItem Data2.Recordset.Fields("Dorsal") & " " & Data2.Recordset.Fields("nombre")
End If
Data2.Recordset.MoveNext
Wend
End Sub

Me he dado cuenta de que el if no se cumple nunca, aunque la condicion de este sea verdadera.

¿sabria alguien explicarme porque pasa esto?

Muchas gracias.

Hola.
En principio parece que debería funcionar, aunque quizá habría que comprobar los datos que cargas en el Combo grupo.
Lo que debes probar es a ejecutarlo paso a paso e ir comprobando los valores de cada variable. Así averiguaras por que no entra en el if.

hola
Mira yo probe tu ejemplo y me funciona
deberias ver que el campo Data2.Recordset.Fields("Dc") y la variable digito que creaste tengan el mismo largo, sacale todos los blancos al campo con la instruccion trim
te quedaria asi
Dim digito As String
Data2.Recordset.MoveFirst
digito = Mid(equipo.Text, 1, 1)
While Not Data2.Recordset.EOF
If trim(Data2.Recordset.Fields("Dc")) = digito Then
jugador.AddItem Data2.Recordset.Fields("Dorsal") & " " & Data2.Recordset.Fields("nombre")
End If
Data2.Recordset.MoveNext
Wend

chaito