problema con el addnew

[barbaglio]

Hola a todo@s mirad tengo un problema para añadir datos con vb6. mi problema es el siguiente: tengo un boton para añañdir los datos introducidos en cajas de texto y en el codigo hago lo siguiente

With frm_jugadores.datJugadores.Recordset
.AddNew
!IDJugador = frm_jugadores.txtJugador(0).Text
!IDClub = 1
!Nombre = frm_jugadores.txtJugador(1).Text
!Apellido1 = frm_jugadores.txtJugador(2).Text
!Apellido2 = frm_jugadores.txtJugador(3).Text
!Demarcacion = frm_jugadores.cboDemarcacion.Text
!Nacionalidad = frm_jugadores.txtJugador(9).Text
!Edad = frm_jugadores.txtJugador(4).Text
!Ficha = frm_jugadores.txtJugador(5).Text
!Clausula = frm_jugadores.txtJugador(7).Text
!NumGoles = frm_jugadores.txtJugador(6).Text
!AgnosContrato = frm_jugadores.txtJugador(8).Text
!FechaAlta = frm_jugadores.txtJugador(10).Text
If frm_jugadores.chk_lesion.Value = 1 Then
!Lesionado = True
Else
!Lesionado = False
End If
If frm_jugadores.chk_int.Value = 1 Then
!Internacional = True
Else
!Internacional = False
End If
!IDClub = 1
.Update
.Close
End With

pero al poner el .addnew los q tenia en las cajas de texto m las vacia y no introduce nada y al llegar a la fecha m da un error ya q dice q esa caja de texto esta vacia y no se como solucionarlo si m podeis ayudar os lo agradeceria muxo.

SALUDOS.