Sql ile vba bağlantısı

[rastbin]

Sub ADOExcelSQLServer()

    Dim Cn As ADODB.Connection
    Dim Server_Name As String
    Dim Database_Name As String
    Dim User_ID As String
    Dim Password As String
    Dim SQLStr As String
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset

    Server_Name = ""
    Database_Name = ""
    User_ID = ""
    Password = ""
    SQLStr = ""

    Set Cn = New ADODB.Connection
    Cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & _
    ";Uid=" & User_ID & ";Pwd=" & Password & ";"

    rs.Open SQLStr, Cn, adOpenStatic
    With Worksheets("Sayfa1").Range("a1:z500")
        .ClearContents
        .CopyFromRecordset rs
    End With
    rs.Close
    Set rs = Nothing
    Cn.Close
    Set Cn = Nothing
End Sub

merhaba,store procedure ile yazılmış olan bir sql sorgum var.sorguyu sql de çalıştırdığım zaman olması gereken kayıtlar geliyor.fakat bu kod ile vba de çalıştırdığımda 5.tablo geliyor.ben 6.tablonun gelmesini veya 3. tablonun gelmesini istiyorum.yani birden fazla sonuç döndüren tablomdan istediğim bir tabloyu vba ile nasıl yaparım.yardımcı olursanız çok sevinirim.


yukarıdaki örnektede sp ile yazılmış bir sorgu var. 3 tablo getirmiş.ben ise vba ile 1. yada 2. yada 3. kayıtın gelmesini istiyorum.umarım anlatabilmişimdir.