VB无法释放EXCEL

Dim connExcel As New ADODB.Connection
  Dim xlApp As Object
  Dim xlBook As Object
  Dim xlSheet As Object

  mstrPath = "D:\科目期初.xls"

  Set xlApp = CreateObject("Excel.Application")

  Set xlBook = xlApp.workbooks.Open(Trim(mstrPath))


  Set xlSheet = xlBook.Worksheets(1)

  xlSheet.cells(4, 3) = "新增加"
  connExcel.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & mstrPath & ";Extended Properties='Excel 8.0;HDR=Yes'"

http://download.csdn.net/source/2341786

你发的东西不实用，vb操作excel的一般知识我知道，现在这同时打开excel并用ado连接后无法释放