Visual Basic - PROBLEMA PARA GUARDAR DATOS

ESTE ES EL CODIGO QUE UTILIZO PARA INSERTAR DATOS EN UNA TABLA:
ado_doct_actual.Recordset.AddNew
ado_doct_actual.RecordSource = "Select * from doctor_actual"
ado_doct_actual.Recordset.Fields("Cod_doctor") = cod_doctor
ado_doct_actual.Recordset.Fields("mes_actual") = ms
ado_doct_actual.Recordset.Update
MI PROBLEMA ES QUE UNAS VECES SI QUE GUARDA BIEN LOS DATOS Y OTRAS NO, XQ PUEDE PASAR ESTO? GRACIAS

PRUEBA A PONER ESTO:

sSentencia = \"doctor_actual\"
Set registros = New ADODB.Recordset
registros.Open sSentencia, conexion, adOpenForwardOnly, adLockPessimistic, adCmdTable
registros.AddNew
registros(\"Cod_doctor\") = cod_doctor
registros(\"mes_actual\") = ms
registros.Update
registros.Close