Access VBS new Recordset SubForm

Private Sub ButZeitenNeu_Click()
    Me![frmZeitenUnterZeit].SetFocus
    Me![frmZeitenUnterZeit]!KombKat0.SetFocus
    DoCmd.GoToRecord , , acNewRec
    Me.frmZeitenUnterZeit.Form!KombKat0.Text = "text1"
    Me![frmZeitenUnterZeit]!KombKat1.SetFocus
    Me.frmZeitenUnterZeit.Form!KombKat1.Text = "text2"
    Me![frmZeitenUnterZeit]!tblZeitDatumAnfang.SetFocus
    Me.frmZeitenUnterZeit.Form!tblZeitDatumAnfang = Now()
    Me.Requery
    Me.lstZeiten.Requery
    Me.lstZeitBuchung.Requery
    Me.frmZeitenUnterZeit.Requery
    Me.frmZeitenUnterZeitBuchungen.Requery

End Sub