vba excel get sql column names -

vba excel get sql column names -

i have next vba code imports info sql db, can't column names help me please. here's code:

sub a() dim connection adodb.connection dim recordset adodb.recordset dim command adodb.command dim strprocname string 'stored procedure name dim strconn string ' connection string. dim selectedval string set connection = new adodb.connection set recordset = new adodb.recordset set command = new adodb.command strconn = "provider=sqloledb.1;persist security info=true;data source =1.1.2.7\b;user id = sa; password=au;initial catalog=a" connection.connectionstring = strconn connection.open command.activeconnection = connection command.commandtext = "statist" command.commandtype = adcmdstoredproc command.parameters.refresh set recordset = command.execute() thisworkbook.sheets("sheet1").cells(1, 1).copyfromrecordset recordset recordset.close set recordset = nil connection.close set connection = nil end sub

sql excel-vba