Access VisualBasic Script

Sub OutputToHTML()
    DoCmd.OutputTo acOutputTable, "tblComplaints", acFormatHTML, "c:\s.html", True
End Sub