Sql server data til excel via vba

fandt løsningen selv..

husk at lave reference til microsoft activex data objects 2.8 lib..
Dim MyCon As New ADODB.Connection
Dim RS As New ADODB.Recordset 'til de data vi trækker ud fra recordsettet


Dim ConStr As String
Dim SQL As String
Dim y As Integer
'ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\database.mdb;Persist Security Info=False" 'Databasen vi bruger
'MyCon.ConnectionString = ConStr

'Ovenstående er koblet til Database - ikke server
ConStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI; Initial Catalog=DATABASENAVN;Data Source=IPNR;Persist Security Info=False" 'Databasen vi bruger
      MyCon.ConnectionString = ConStr

SQL = "SELECT felt1 as Feltnavn FROM tabel " _ & 'husk mellemrum
"WHERE ((tabel.feltnavn) like '" & Variabel & "' or like %)"
'obs wildcard er % og ikke * som i access.

'Fylder data
MyCon.Open 'åbner connection
       
RS.Open SQL, MyCon, adOpenDynamic 'åber sql'en

x = 0 'så vi er sikker på at vi start med 0

Do Until RS.EOF ' gør indtil der ikke er flere records med data

Cells(8, x + 4).Value = RS.Fields("Feltnavn") 'man kan også bruge 0-xx i reference, så kolonne 1 = 0 etc.


RS.MoveNext 'går videre til næste række
x = x + 1 'tæller til rækkenr
Loop


MyCon.Close