Error en agregar datos nuevos

[lokoman]

Hola!!
Creo que la cosa va por aqui:

Código vb:

Public NuevoNino As Boolean
 
Public Sub cmdMenuAgregar_Click()
    NuevoNino = True 'ASIGNAMOS EL VALOR
    frmNinos.Show 'llamado
End Sub
 
Private Sub Form_Load()
    If NuevoNino = True Then 'VARIABLE OK!!!
        Set rsAgNino = New ADODB.Recordset
        With rsAgNino
            .Open "SELECT * FROM Niños", cnGuarderia, adOpenDynamic, adLockOptimistic
            .AddNew
            NuevoNino = False 'DESPUES DE AGREGAR, LO PONEMOS EN FALSE
        End With
    End If
End Sub