træk alle kolonne navne fra database over i excel

Hej alle sammen

Jeg har følgende kode:

        With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
            "ODBC;Description=TEST;DRIVER=SQL Server;SERVER=NOWHERE;UID=User;PWD=Pasword;APP=2007 Microsoft Office system" _
            , Destination:=Range("$A$3")).QueryTable
            .CommandText = "Select * from *"
            .Refresh BackgroundQuery:=False
            .Delete
        End With

Det virker bare ikke :( Jeg vil gerne se hvilke kolonner, som er i databasen (hvilke informationer, som er tilstede)

Er der mon nogen der kan give mig den rigtige commandtext, så jeg får kolonnenavne ud af databasen?