i have a problem about fields of executed query in vba

[cem babaeren]

i have two problems:

1) when i execute this query in sql 2005; i get more than 10.000 results. However i get only 1087 results in vba excel. why would it be so?

2) i have three collections defined in the code. and want to fill them with the corresponding fields in the query.. that's; tarih_list as field(1); vkgs_list as field(2); getiri_list as field(3).. how can i do that?

thanks in advance..

---
Private Sub CommandButton1_Click()

Dim MyConnObj As New ADODB.Connection
Dim myRecSet As New ADODB.Recordset
Dim vkgs_list As New Collection
Dim getiri_list As New Collection
Dim tarih_list As New Connection

MyConnObj.Open "Provider = sqloledb;" & "Data Source=192.168.0.99;" & "Initial Catalog=BDDK_SERVER;" & "User ID=RISKUSER;" & "Password=RISKUSER;"
sqlStr = "select TARIH_DT, VKGS, GETIRI from VERIMEGRISI where VERIMEGRISI = 'USD.GOV' AND TARIH_DT > 20080501 ORDER BY TARIH_DT DESC, VKGS ASC"

myRecSet.Open sqlStr, MyConnObj, adOpenKeyset

For i = 1 To myRecSet.RecordCount
'??
'??
'??

Next
MyConnObj.Close
End Sub

---