Работает:


код:
--------------------------------------------------------------------------------


Dim strSQL As String
Set RS = New ADODB.Recordset

strSQL = "Select Product from Product"

With RS
.ActiveConnection = cnn
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Source = strSQL
.Open
End With

Set grTemp.DataSource = RS


--------------------------------------------------------------------------------


Не работает:


код:
--------------------------------------------------------------------------------


Dim cmd As New ADODB.Command

With cmd
.ActiveConnection = cnn

.CommandType = adCmdText
.CommandText = "Select Product from Product"

Set grTemp.DataSource = .Execute

End With


--------------------------------------------------------------------------------



Не работает:


код:
--------------------------------------------------------------------------------


Set grTemp.DataSource = cnn.Execute("Select Product from Product")


--------------------------------------------------------------------------------


В чем может быть дело?

Eternal, если бы соединение было не правильным, первый код не выполнялся бы.
cnn.Open "Provider=sqloledb;" _
& "Data Source=TITAN;" _
& "Initial Catalog=Transfer;" _
& "uid=a;" _
& "pwd=qaq"

ulis, просвети чайника, что там не так с CursorLocation?

Причем если через Command вызывать процедуру с кодом INSERT и параметрами, то все работает.