pull data into excel from database db2

See more:

MS-Excel

macros

trying to use select query in excel macros. rs.fields.count returns the count of columns in the select query. Actually i need the count of rows in the table.

also recordcount value is -1. however when the same query is excuted in db2, it works fine.

Eg:

sql = "select a,b,c from tblname where d = 100;"

Set cmdobj = New ADODB.Command

cmdobj.ActiveConnection = varcnn
cmdobj.CommandText = sql

Set rs = cmdobj.Execute(sql)

For i = 0 To rs.Fields.Count - 1
   Sheet2.Cells(r, i + 1) = rs.Fields(i).Value
   Sheet2.Cells(r, i + 1).Interior.ColorIndex = 36
   Sheet2.Cells(r, i + 1).Borders.Value = 1
Next i

thanks in advance