Hente data fra MS SQL til Excel

Har du set dette: http://support.microsoft.com/default.aspx?scid=kb;en-us;306125&sd=tech

Jo tak, har set den.

Det er lykkedes mig at nå så langt at jeg har knappen oprettet og når jeg klikker på denne henter den data frem fra min database så det er dejligt!

Men jeg kan kun lave en simpel forespørgsel, f.eks. select * from MyTable - jeg har brug for at ændre den så min forespørgsel fylder mere end en linje og når jeg gør det fejler det hele og forespørgslen bliver rød... SÅ hvordan laver jeg en forespørgsel der fylder flere linier?

Her er hvad jeg har indtil videre og som virker...

Private Sub CommandButton1_Click()

    'This was set up using Microsoft ActiveX Data Components version 2.8
   
    Dim cnt As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim stSQL As String
    Dim wbBook As Workbook
    Dim wsSheet As Worksheet
    Dim rnStart As Range
   
   
    Const stADO As String = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _
    "Persist Security Info=False;" & _
    "Initial Catalog=X1;" & _
    "Data Source=X2"
    'where X1 is SQL Database & X2 is SQL Server
   
    Set wbBook = ActiveWorkbook
    Set wsSheet = wbBook.Worksheets(1)
   
    With wsSheet
        Set rnStart = .Range("A10")
    End With
   
    stSQL = "SELECT * FROM MyTable"
   
    Set cnt = New ADODB.Connection
   
    With cnt
        .CursorLocation = adUseClient
        .Open stADO
        .CommandTimeout = 0
        Set rst = .Execute(stSQL)
    End With
   
    'Here we add the Recordset to the sheet from A10
    rnStart.CopyFromRecordset rst
   
    'Cleaning up.
    rst.Close
    cnt.Close
    Set rst = Nothing
    Set cnt = Nothing

End Sub

Jeg har løst det - bruger en stored procedure. Smid er svar og du får point ;-)

Ok - et svar og tak..