Dim rs_Tbl2 As New ADODB.Recordset
Dim cmd As ADODB.Command
Dim x As Integer
Dim cn1 As ADODB.Connection

Set cn1 = New ADODB.Connection
With cn1
.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind;Data Source=Jeck2" '& '_
.Open
End With

x = 10248
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = cn1
.CommandText = "CustOrdersDetail"
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter(, adInteger, adParamInput, , x)
End With

Set rs_Tbl2.Source = cmd.Execute
rs_Tbl2.CursorLocation = adUseServer ' или adUseClient
rs_Tbl2.CursorType = adOpenStatic ' или adOpenKeyset
rs_Tbl2.Open

rs_Tbl2.MoveLast
rc = rs_Tbl2.RecordCount

Set Me.DataGrid1.DataSource = rs_Tbl2
Me.DataGrid1.Refresh

Выдает ошибку Row set is not bookmarkable
Как преодолеть или сделать по-другому ?

Се, разобрался, пока писал понял ...
ст1.CursorLocation = adUseClient
и все работает ...