[Resolvido]Ao abrir o form o focus direcione para um novo registro no sub form!

Private Sub Form_Load()
On Error GoTo Trato
   Dim db As Database
   Dim rs As DAO.Recordset
   Set db = CurrentDb
   Set rs = db.OpenRecordset("SELECT BaseDoSubform")
      If rs.RecordCount <> 0 Then
        Forms!NomeSubformulário.SetFocus
        DoCmd.GoToRecord , "", acNewRec
        Forms!NomeSubformulário.Form!NomeCampoHora.SetFocus
      End If
   rs.Close
   Set rs = Nothing
   db.Close
   Set db = Nothing
Exit Sub
Trato: MsgBox Err.Description
End Sub

Private Sub Form_Load()
On Error GoTo Trato
   Dim db As Database
   Dim rs As DAO.Recordset
   Set db = CurrentDb
   Set rs = db.OpenRecordset("ConsultaCriarFormulário")
      If rs.RecordCount <> 0 Then
        Forms!JESUS.SetFocus
        DoCmd.GoToRecord , "", acNewRec
        Forms!JESUS!hora.SetFocus
      End If
   rs.Close
   Set rs = Nothing
   db.Close
   Set db = Nothing
Exit Sub
Trato: MsgBox Err.Description
End Sub

Private Sub Form_Load()
On Error GoTo Trato
   Dim db As Database
   Dim rs As DAO.Recordset
   Set db = CurrentDb
   Set rs = db.OpenRecordset("Tabela/Consulta/SQL")
      If rs.RecordCount <> 0 Then
        Forms!NomeSubformulário.SetFocus
        Forms!NomeSubformulário!NomeCampoHora.SetFocus
        DoCmd.GoToRecord , "", acNewRec
      End If
   rs.Close
   Set rs = Nothing
   db.Close
   Set db = Nothing
Exit Sub
Trato: MsgBox Err.Description
End Sub