Access VisualBasic Script

Sub NewReport()
    Dim myReport As Report
    Dim strReportName As String
    strReportName = "myReport"
    Set myReport = CreateReport
    DoCmd.Save , strReportName
    DoCmd.Close , , acSaveYes
End Sub