求教一个VBA宏，高手来

事情是这样的，我原来在EXCEL中做了一个查询的宏的，是连接数据库中的表（经销商销售200804，按照发货单进行查询）的，代码如下，现在上面的又要求在原来的数据后面(接着原先的数据后面一行)增加另外一个查询，源数据是SQL SERVER里面的视图（经销商销售备注），里面也有发货单，还有备注号，备注等几列，请问怎么在原先基础上改
Sub 按钮8_单击()
Dim cnn As New ADODB.Connection, rs As New ADODB.Recordset
Dim i As Long, mydata As String, myTable As String, SQL As String
Dim j As Long, m As Long

Dim abc As String
mydata = "BPW_Datamarts"
myTable = "经销商销售200804"
abc = ActiveSheet.Cells(5, 5).Value
With cnn
.ConnectionString = "Driver={SQL Server};Server=10.30.1.29;Database=BPW_Datamarts;Uid=De56;Trusted_Connection=Yes;"
.Open
End With
SQL = "select 订单号,产品编号,产品名称,发票数量,零售单价,零售金额,实售单价,实售金额,客户编号,客户简称,发票日期 from " & myTable & " where 发货单号=" & "'" & abc & "'"

rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
Rows("9:9").Select
Range(Selection, Selection.End(xlDown)).Selec

求教一个电脑程序问题 高手来 VBA问题，VBA高手请进！ 高手来啊!!求教!! 求教，高手来~~~~ 求教数学高手来 求教一个ASP的小问题~高手来 给分!!! 网页制作的高手请进来，虚心求教一个问题 【求教一个Bat命令 高手来帮帮忙~谢谢】 求教office高手一个excel的宏 求教高手来指点一下！~``