Problema con Recordset.Fields()

[hernanmdq]

Código:

Do While Not AdoJugadores.Recordset.EOF
            If (AdoJugadores.Recordset.Fields(0).value = Val(txtCod_equipo2.Text))And (AdoJugadores.Recordset.Fields(1).value = val(txtN_dorsal2.Text)) Then
                   MsgBox "Ya existe un jugador con ese dorsal", vbCritical, "Error"
            End If
            AdoJugadores.Recordset.MoveNext
Loop

Val si son enteros y Csgn si son decimales. Salu2