buen dia, fijense que tengo una gran contrariedad tengo una base sql la cual por medio de una consulta en control ADO genero y la enlazo a un datagrid , despues esa consulta le corro un algoritmo para generar registros de niños vacunados con sus datos personales y vacunas aplicadas pero no se porque razon no se añaden a la base de datos donde deso guaradarlos la base esta en access 2007 e incluso hice otra con foxpro 6 y lo mismo le enseño el cogigo del programa gracias y si alguien pudiera tener una idea del porque pasa se los agradezco..

Dim cn As New Connection
Dim rst1 As New ADODB.Recordset
Dim rst2 As New ADODB.Recordset








Private Sub Command1_Click()



Dim id_estado, id_municipio, id_localidad, estado_nac, id_vacuna As Integer
Dim id_ageb, id_sector, id_manzana, clues, paterno, materno, nombre, sexo, gemelar, calle, noCasa, id_colonia As String
Dim esquema, noLote, curp As String
Dim fecha_nac As Date
Dim BCG, SABIN_1, SABIN_2, SABIN_3 As Integer
Dim BCG_FA, SABIN_1_FA, SABIN_2_FA, SABIN_3_FA As Date
Dim DPT_HB_HIB_1, DPT_HB_HIB_2, DPT_HB_HIB_3 As Integer
Dim DPT_HB_HIB_1_FA, DPT_HB_HIB_2_FA, DPT_HB_HIB_3_FA As Date
Dim ANTIHEP_B_1, ANTIHEP_B_2, ANTIHEP_B_3 As Integer
Dim ANTIHEP_B_1_FA, ANTIHEP_B_2_FA, ANTIHEP_B_3_FA As Integer
Dim DPAT_VIP__HIB_1, DPAT_VIP__HIB_2, DPAT_VIP__HIB_3 As Integer
Dim DPAT_VIP__HIB_1_FA, DPAT_VIP__HIB_2_FA, DPAT_VIP__HIB_3_FA As Date
Dim SRP_1, SRP_2 As Integer
Dim SRP_1_FA, SRP_2_FA As Date
Dim NEUMO_7_1, NEUMO_7_2, NEUMO_7_3, ROTAVIRUS_1, ROTAVIRUS_2 As Integer
Dim NEUMO_7_1_FA, NEUMO_7_2_FA, NEUMO_7_3_FA, ROTAVIRUS_1_FA, ROTAVIRUS_2_FA As Date
Dim INFLUENZA_1, INFLUENZA_2 As Integer
Dim INFLUENZA_1_FA, INFLUENZA_2_FA As Date
Dim INFLUENZA_REF As Integer
Dim INFLUENZA_REF_FA As Date
Dim DPT_1, DPT_2, TD_1, TD_2, TD_R As Integer
Dim DPT_1_FA, DPT_2_FA, TD_1_FA, TD_2_FA, TD_R_FA As Date
Dim VPH_1, VPH_2, VPH_3 As Integer
Dim VPH_1_FA, VPH_2_FA, VPH_3_FA As Integer
Dim HB_1, HB_2 As Integer
Dim HB_1_FA, HB_2_FA As Integer
Dim SR As Integer
Dim SR_FA, fec_aplic As Date
Dim codigos, dosis As String

Set rst1.DataSource = Adodc1

Set rst2.DataSource = Adodc2

rst1.MoveFirst

Set DataGrid1.DataSource = rst1
Loop_Start1:
curp = rst1.Fields("curp").Value
id_estado = rst1.Fields("id_estado").Value
id_ageb = rst1.Fields("id_ageb").Value
id_sector = rst1.Fields("id_sector").Value
id_manzana = rst1.Fields("id_manzana").Value
id_municipio = rst1.Fields("id_municipio").Value
id_localidad = rst1.Fields("id_localidad").Value
paterno = rst1.Fields("paterno").Value
materno = rst1.Fields("materno").Value
nombre = rst1.Fields("nombre").Value
fecha_nac = rst1.Fields("fecha_nac").Value
estado_nac = rst1.Fields("estado_nac").Value
sexo = rst1.Fields("sexo").Value
gemelar = rst1.Fields("gemelar").Value
calle = rst1.Fields("calle").Value
noCasa = rst1.Fields("noCasa").Value
id_colonia = rst1.Fields("id_colonia").Value
esquema = rst1.Fields("esquema").Value

rst2.AddNew
rst2.Fields("curp").Value = curp
rst2.Fields("idestado").Value = id_estado
rst2.Fields("idageb").Value = id_ageb
rst2.Fields("idsector").Value = id_sector
rst2.Fields("idmanzana").Value = id_manzana
rst2.Fields("clues").Value = clues
rst2.Fields("idmunicip").Value = id_municipio
rst2.Fields("idlocalida").Value = id_localidad
rst2.Fields("paterno").Value = paterno
rst2.Fields("materno").Value = materno
rst2.Fields("nombre").Value = nombre
rst2.Fields("fechanac").Value = fecha_nac
rst2.Fields("estadonac").Value = estado_nac
rst2.Fields("sexo").Value = sexo
rst2.Fields("gemelar").Value = gemelar
rst2.Fields("calle").Value = calle
rst2.Fields("noCasa").Value = noCasa
rst2.Fields("idcolonia").Value = id_colonia
rst2.Fields("esquema").Value = esquema
'rst2.Update

Loop_Start2:
id_vacuna = rst1.Fields("id_vacuna").Value
dosis = rst1.Fields("dosis").Value
fecha_aplic = rst1.Fields("fecha_aplic").Value
noLote = rst1.Fields("noLote").Value

Select Case id_vacuna

Case Is = 1
'BCG = id_vacuna
BCG_FA = fecha_aplic
rst2.Fields("BCG").Value = 1
rst2.Fields("BCGFA").Value = BCG_FA

Case Is = 2
If dosis = "1" Then
'SABIN_1 = id_vacuna
SABIN_1_FA = fecha_aplic
rst2.Fields("SABIN1").Value = 1
rst2.Fields("SABIN1FA").Value = SABIN_1_FA
Else
If dosis = "2" Then
'SABIN_2 = id_vacuna
SABIN_2_FA = fecha_aplic
rst2.Fields("SABIN2").Value = 1
rst2.Fields("SABIN2FA").Value = SABIN_2_FA
Else
If dosis = "3" Then
'SABIN_3 = id_vacuna
SABIN_3_FA = fecha_aplic
rst2.Fields("SABIN3").Value = 1
rst2.Fields("SABIN3FA").Value = SABIN_3_FA
End If
End If
End If

Case Is = 3
If dosis = "1" Then
'DPAT_VIP__HIB_1 = id_vacuna
DPAT_VIP__HIB_1_FA = fecha_aplic
rst2.Fields("DPTVIPHB1").Value = 1
rst2.Fields("DPTVIPHB1F").Value = DPAT_VIP_HIB_1_FA
Else
If dosis = "2" Then
'DPAT_VIP__HIB_2 = id_vacuna
DPAT_VIP__HIB_2_FA = fecha_aplic
rst2.Fields("DPTVIPHIB2").Value = 1
rst2.Fields("DPTVIPHIB2F").Value = DPAT_VIP_HIB_2_FA
Else
If dosis = "3" Then
'DPAT_VIP__HIB_3 = id_vacuna
DPAT_VIP__HIB_3_FA = fecha_aplic
rst2.Fields("DPTVIPHIB3").Value = 1
rst2.Fields("DPTVIPHIB3F").Value = DPAT_VIP_HIB_3_FA
Else
If dosis = "4" Then
'DPAT_VIP__HIB_4 = id_vacuna
DPAT_VIP__HIB_4_FA = fecha_aplic
rst2.Fields("DPTVIPHIB4").Value = 1
rst2.Fields("DPTVIPHIB4F").Value = DPAT_VIP_HIB_4_FA
End If
End If
End If
End If

Case Is = 4
If dosis = "1" Then
'ANTIHEP_B_1 = id_vacuna
ANTIHEP_B_1_FA = fecha_aplic
rst2.Fields("ANTIHEPB1").Value = 1
rst2.Fields("ANTIHEPB1F").Value = ANTIHEP_B_1_FA
Else
If dosis = "2" Then
'ANTIHEP_B_2 = id_vacuna
ANTIHEP_B_2_FA = fecha_aplic
rst2.Fields("ANTIHEPB2").Value = 1
rst2.Fields("ANTIHEPB2F").Value = ANTIHEP_B_2_FA
Else
If dosis = "3" Then
'ANTIHEP_B_3 = id_vacuna
ANTIHEP_B_3_FA = fecha_aplic
rst2.Fields("ANTIHEPB3").Value = 1
rst2.Fields("ANTIHEPB3F").Value = ANTIHEP_B_3_FA
End If
End If
End If

Case Is = 5
If dosis = "1" Then
'SRP_1 = id_vacuna
SRP_1_FA = fecha_aplic
rst2.Fields("SRP1").Value = 1
rst2.Fields("SRP1FA").Value = SRP_1_FA
Else
If dosis = "2" Then
'SRP_2 = id_vacuna
SRP_2_FA = fecha_aplic
rst2.Fields("SRP2").Value = 1
rst2.Fields("SRP2FA").Value = SRP_2_FA
End If
End If

Case Is = 6
If dosis = "1" Then
'INFLUENZA_1 = id_vacuna
INFLUENZA_1_FA = fecha_aplic
rst2.Fields("INFLU1").Value = 1
rst2.Fields("INFLU1FA").Value = INFLUENZA_1_FA
Else
If dosis = "2" Then
'INFLUENZA_2 = id_vacuna
INFLUENZA_2_FA = fecha_aplic
rst2.Fields("INFLU2").Value = 1
rst2.Fields("INFLU2FA").Value = INFLUENZA_2_FA
Else
If dosis = "3" Then
'INFLUENZA_REF = id_vacuna
INFLUENZA_REF_FA = fecha_aplic
rst2.Fields("INFLUEREF").Value = 1
rst2.Fields("INFLUEREF_FA").Value = INFLUENZA_REF_FA
End If
End If
End If

Case Is = 8
If dosis = "1" Then
'NEUMO_7_1 = id_vacuna
NEUMO_7_1_FA = fecha_aplic
rst2.Fields("NEUMO71").Value = 1
rst2.Fields("NEUMO71FA").Value = NEUMO_7_1_FA
Else
If dosis = "2" Then
'NEUMO_7_2 = id_vacuna
NEUMO_7_2_FA = fecha_aplic
rst2.Fields("NEUMO72").Value = 1
rst2.Fields("NEUMO72FA").Value = NEUMO_7_2_FA
Else
If dosis = "3" Then
'NEUMO_7_3 = id_vacuna
NEUMO_7_3_FA = fecha_aplic
rst2.Fields("NEUMO73").Value = 1
rst2.Fields("NEUMO73FA").Value = NEUMO_7_3_FA
End If
End If
End If

Case Is = 9
If dosis = "1" Then
'ROTAVIRUS_1 = id_vacuna
ROTAVIRUS_1_FA = fecha_aplic
rst2.Fields("ROTA1").Value = 1
rst2.Fields("ROTA1FA").Value = ROTAVIRUS_1_FA
Else
If dosis = "2" Then
'ROTAVIRUS_2 = id_vacuna
ROTAVIRUS_2_FA = fecha_aplic
rst2.Fields("ROTA2").Value = 1
rst2.Fields("ROTA2FA").Value = ROTAVIRUS_2_FA
End If
End If

Case Is = 11
If dosis = "1" Then
'DPT_1 = id_vacuna
DPT_1_FA = fecha_aplic
rst2.Fields("DPT1").Value = 1
rst2.Fields("DPT1FA").Value = DPT_1_FA
Else
If dosis = "2" Then
'DPT_2 = id_vacuna
DPT_2_FA = fecha_aplic
rst2.Fields("DPT2").Value = 1
rst2.Fields("DPT2FA").Value = DPT_2_FA
End If
End If

Case Is = 12
If dosis = "1" Then
'TD_1 = id_vacuna
TD_1_FA = fecha_aplic
rst2.Fields("TD1").Value = 1
rst2.Fields("TD1FA").Value = TD_1_FA
Else
If dosis = "2" Then
'TD_2 = id_vacuna
TD_2_FA = fecha_aplic
rst2.Fields("TD2").Value = 1
rst2.Fields("TD2FA").Value = TD_2_FA
Else
If dosis = "3" Then
'TD_R = id_vacuna
TD_R_FA = fecha_aplic
rst2.Fields("TDR").Value = 1
rst2.Fields("TDRFA").Value = TD_R_FA
End If
End If
End If

Case Is = 13
If dosis = "1" Then
'HB_1 = id_vacuna
HB_1_FA = fecha_aplic
rst2.Fields("HB1").Value = 1
rst2.Fields("HB1FA").Value = HB_1_FA
Else
If dosis = "2" Then
'HB_2 = id_vacuna
HB_2_FA = fecha_aplic
rst2.Fields("HB2").Value = 1
rst2.Fields("HB2FA").Value = HB_2_FA
End If
End If

Case Is = 14
'SR = id_vacuna
SR_FA = fecha_aplic
rst2.Fields("SR").Value = 1
rst2.Fields("SRFA").Value = SR_FA

Case Is = 15
If dosis = "1" Then
'TD_1 = id_vacuna
DPT_HB_HIB_1_FA = fecha_aplic
rst2.Fields("DPTHBHIB1").Value = 1
rst2.Fields("DPTHBHIB1F").Value = DPT_HB_HIB_1_FA
Else
If dosis = "2" Then
'TD_2 = id_vacuna
DPT_HB_HIB_2_FA = fecha_aplic
rst2.Fields("DPTHBHIB2").Value = 1
rst2.Fields("DPTHBHIB2F").Value = DPT_HB_HIB_2_FA
Else
If dosis = "3" Then
'TD_R = id_vacuna
DPT_HB_HIB_3_FA = fecha_aplic
rst2.Fields("DPTHBHIB3").Value = 1
rst2.Fields("DPTHBHIB3F").Value = DPT_HB_HIB_3_FA
End If
End If
End If
'biologico id_vac, dos, fec_aplic
End Select

rst2.Update
Set DataGrid2.DataSource = rst2
DataGrid2.Refresh
rst1.MoveNext
DataGrid1.Refresh
If rst1.EOF = True Then
GoTo final
Else

curp2 = rst1.Fields("curp").Value


If curp = curp2 Then

GoTo Loop_Start2:
Else
GoTo Loop_Start1:
End If
End If


final:



MsgBox "proceso finalizado"


End Sub