مشکل من اینه که وقتی تو یه دستور sql ام از group by استفاده می کنم رکورد ست خالی می فرسته

[shamsipour]

این ماجولم

Public Function fetch(strsql As String) As ADODB.Recordset
Set CN = New ADODB.Connection
Set CM = New ADODB.Command
Set RS = New ADODB.Recordset
CN.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=cooperation;Data Source=."
CN.Open
Set RS.ActiveConnection = CN
RS.Source = strsql
RS.CursorLocation = adUseServer
RS.CursorType = adOpenKeyset
RS.LockType = adLockOptimistic
RS.Open
Set fetch = RS
End Function
و این بازیابی من

Dim RSdestination As ADODB.Recordset
Set RSdestination = fetch("select destination from service group by destination ")
'MsgBox RSdestination.RecordCount
که رکوردست خالی می فرسته