送分啦！！！请问在VB中怎么实现将查询生成的数据输出到Excel中去啊？？？

Question

Dim SQLStr
Dim IpRS As ADODB.Recordset
Dim iLoop As Integer
Dim MyxlsApp As New Excel.Application
  SQLStr = "Select IP_ADDRESS,MAC_ADDRESS,PASSWD  from Cc_IP "
  Set IpRS = New ADODB.Recordset
  IpRS.Open SQLStr, adoCon, adOpenStatic, adLockReadOnly
  
  iLoop = 1
  Do While Not IpRS.EOF
     MyxlsApp.Cells(i_Loop , 1).Value  = IpRS.Fields("IP_ADDRESS")
     MyxlsApp.Cells(i_Loop , 2).Value = IpRS.Fields("MAC_ADDRESS")
     MyxlsApp.Cells(i_Loop , 3).Value = IpRS.Fields("PASSWD")
     IpRS.MoveNext
  iLoop = iLoop + 1
  Loop
set IpRs=Nothing

Answer 1

select * into [Excel 8.0;database=" & .Filename & "].sheet1 from  " & CurrentTable