修改一下下列代码

帮我修改一下代码：点击命令按钮报表1直接打开报表，不要弹出提示窗体如下图。

点击下载此附件

Private Sub Command0_Click()
 Dim rst As ADODB.Recordset
    Dim cnn As ADODB.Connection
    Set cnn = CurrentProject.Connection
    Set rst = New ADODB.Recordset
    rst.Open "Select * From 表1", cnn
    DoCmd.RunSQL "Delete * From 报表格式"
    Do Until rst.EOF
       m = rst(1)
       For i = 2 To 6
           If Not IsNull(rst(i)) Then n = rst(i)
       Next
           strSQL = "Insert INTO 报表格式(产品名称,最后报价) VALUES ('" & m & "', '" & n & "')"
           cnn.Execute strSQL
       rst.MoveNext
    Loop  
    rst.Close
    Set rst = Nothing
    Set cnn = Nothing
DoCmd.OpenReport "报表1", acViewPreview
End Sub