求助：VB6平台下，调用SQL数据库至EXCEL打印，退出时，遇进程无法关闭问题

Dim objExcelSample As excel.Application
Dim objWorkbook As excel.Workbook
Dim objWorksheet As excel.WorksheetPrivate Sub Command2_Click()    '退出
    objWorkbook.RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏
    objWorkbook.Close (True) '关闭EXCEL工作簿
    objExcelSample.Quit '关闭EXCEL
    Set objExcelSample = Nothing '释放EXCEL对象
    Set objWorkbook = Nothing
    Set objWorksheet = Nothing
End SubPrivate Sub Command4_Click()     '打印预览
    Dim i As Integer
    
    Set objExcelSample = New excel.Application
    Set objWorkbook = objExcelSample.Workbooks.Open("d:\Temp\bb.xls")
    Set objWorksheet = objWorkbook.Sheets("sheet1")    With Adodc1
        .RecordSource = "select * from 客户信息"
        .Refresh
    End With'    If Dir("D:\temp\excel.bz") = "" Then               '判断EXCEL是否打开
        Set objExcelSample = CreateObject("Excel.Application") '创建EXCEL应用类
       objExcelSample.Visible = True                          '设置EXCEL可见
        Set objWorkbook = objExcelSample.Workbooks.Open("D:\temp\bb.xls")    '打开EXCEL工作簿
        Set objWorksheet = objWorkbook.Worksheets(1)            '打开EXCEL工作表
    objWorksheet.Activate                              '激活工作表
         objWorksheet.Cells(10, 10) = "abc"                  '给单元格1行驶列赋值
        objWorkbook.RunAutoMacros (xlAutoOpen)             '运行EXCEL中的启动宏
'    Else
'        MsgBox ("EXCEL已打开")
'    End If    i = 1
    Do While Not Adodc1.Recordset.EOF  '填入数据库表数据
        objWorksheet.Cells(i, 1) = Adodc1.Recordset.Fields(0).Name
        objWorksheet.Cells(i, 2) = Adodc1.Recordset.Fields(1).Name
        objWorksheet.Cells(i, 3) = Adodc1.Recordset.Fields(2).Name
        objWorksheet.Cells(i, 4) = Adodc1.Recordset.Fields(3).Name
        objWorksheet.Cells(i, 5) = Adodc1.Recordset.Fields(4).Name
        objWorksheet.Cells(i, 6) = Adodc1.Recordset.Fields(5).Name
        objWorksheet.Cells(i, 7) = Adodc1.Recordset.Fields(6).Name
        Adodc1.Recordset.MoveNext
        i = i + 1
    Loop
    objWorkbook.PrintPreview
    Set objExcelSample = Nothing '释放EXCEL对象
    Set objWorkbook = Nothing
    Set objWorksheet = Nothing
End Sub
1、想实现退出自动清除bb.xls内容并保存（上面程序退出的时候，总提示保存），其中以下是bb.xls的VBA内容。Sub auto_open() '打开
End SubSub auto_close() '关闭
  Dim i As Integer
  Dim j As Integer
  
  For i = 1 To 255
    For j = 1 To 50
      Sheet1.Cells(i, j) = ""
    Next j
  Next i
End Sub