帮忙解释数据导出的代码，谢谢。

在学习书本上的一些代码时，遇到有些困难，所以高手帮忙解释下如下代码，最好在每行代码右边加上注释。谢谢。

Public Sub 数据导出()  '导出药品基本信息
 Dim row%, col%, A%, K%
 Dim conn As Object, rs As Object
 Dim StrSor$, StrDtn$
 Dim sql As String, sql1$
 Dim ExcelApp As Excel.Application
 Dim xlBook As Excel.Workbook
 Dim ExcelWst As Excel.Worksheet
 
 Set conn = Application.CurrentProject.Connection
 sql = "select * from 药品信息表"
 Set rs = CreateObject("ADODB.Recordset")
 rs.Open sql, conn, 1
 
 StrSor = "d:\access\药品信息表.xls"
 StrDtn = "d:\access\temp1.xls"
 FileCopy StrSor, StrDtn
 Set ExcelApp = New Excel.Application
 Set xlBook = ExcelApp.Workbooks.Open("d:\access\temp1.xls")
 Set ExcelWst = xlBook.Worksheets(1)
 Set ExcelWst = xlBook.ActiveSheet
 ExcelApp.Visible = True
 ExcelWst.Name = "药品基本信息"
  row = 1
 
 While Not rs.EOF
        row = row + 1
        For col = 0 To rs.Fields.Count - 2
           ExcelWst.Cells(row, col + 1) = rs.Fields(col)
     
        Next col
        ExcelWst.Cells(row, col) = Date
     
        rs.MoveNext
 Wend

 MsgBox "数据导出操作完成"
 ExcelApp.Quit
 Set ExcelApp = Nothing

 rs.Close   '关闭记录集，释放记录集所占用的资源
 conn.Close
 Set rs = Nothing '释放当前连接所占用的资源
 Set conn = Nothing '释放当前连接所占用的资源
End Sub