Имеется

Dim db As ADODB.Connection
Dim cmd As ADODB.Command
Dim StrSQL As String
Dim Goroda, drGoroda As ADODB.Recordset
Set db = New ADODB.Connection
Set Goroda = New ADODB.Recordset
Set drGoroda = New ADODB.Recordset
Set cmd = New ADODB.Command
db.CursorLocation = adUseClient
db.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Test.mdb;"
StrSQL = "SELECT Города.[Индекс города], Города.Город FROM Города"
With cmd
Set .ActiveConnection = db
.CommandType = adCmdText
.CommandText = StrSQL
End With

Goroda = cmd.Execute 'Один рекордсет

drGoroda.Open StrSQL, db, adOpenStatic, adLockOptimistic 'Второй рекордсет

Почему же получаются разные рекордсеты на один запрос. Причем в drGoroda верный.