Error en agregar datos nuevos

[Cosertel]

Hola a todos.

trato de utilizar un formulario ya existente que, a través de validaciones, funcione para agregar datos nuevos al sistema.

La cuestión es que llamo a través de un formulario diferente por medio de un commandbutton:

Código:

Public Sub cmdMenuAgregar_Click()
frmNiños.NuevoNiño 'procedimientos de variables
frmNiños.Show 'llamado
End Sub

y comienza a cargar

Código:

Private Sub Form_Load()
If NuevoNiño = True Then 'aquí me muestra el error, especificamente donde está en cursiva
Set rsAgNiño = New ADODB.Recordset
With rsAgNiño
    .Open "SELECT * FROM Niños", cnGuarderia, adOpenDynamic, adLockOptimistic
    .AddNew
End With
End If
End Sub

Pero me origina un error diciéndome "Error de Compilación: Se esperaba una Función o una Variable"

Necesito hacer está comprobación para evitar confusiones y combinaciones innecesarias de funciones.

[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