Indsæt værdi i ny post i underformular

Hej

Hvordan kan jeg ved hjælp af kode indsætte en værdi i en ny post i en underformular? Jeg har foreløbig følgende kode:

Public Function InsertNavn()
Dim strSQL As String, strName As String
strName = InputBox("Indtast nyt navn", "Nyt navn")

If Not strName <> "" Then Exit Function

strSQL = "INSERT INTO tblMsk (fldMsk) VALUES ('" & strName & "')"

DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True

If CurrentProject.AllForms("frmLog").IsLoaded Then
    With Form_frmLogMsk_sub
        .fldMskID.Requery
        DoCmd.GoToRecord acDataForm, "frmLogMsk_sub", acNewRec
        .fldMskID.Text = strName
    End With
End If

End Function

Problemet er, at den giver fejlmeddelelse ved linjen:
DoCmd.GoToRecord acDataForm, "frmLogMsk_sub", acNewRec
..og siger at frmLogMsk_sub ikke er åben - men det er den, blot som en subform i frmLog.