ЧТО ТУТ НЕ ТАК?
---------------------------------------------------------------------
Public Function RetTableFromSQL(strSQL As String) As ADODB.Recordset
Dim sTempDB As String
Dim cnn_Str As String

Set RetTableFromSQL = Nothing

sDBname = "Orta380" 'GetSySParam("DB_Name")
sServerName = "Fabrika" 'GetSySParam("Server")

Set rs_ADO_DAO = CreateObject("ADODB.Recordset.2.80") 'New ADODB.Recordset '
Set cnn_Ado = CreateObject("ADODB.Connection.2.80")

With cnn_Ado
.Provider = "SQLOLEDB"
.Properties("Data Source") = sServerName
.Properties("Initial Catalog") = sDBname
.Properties("Integrated Security") = "SSPI"
.Open
Set rs_ADO_DAO = .Execute(strSQL)
.Close
End With
Set RetTableFromSQL = rs_ADO_DAO

End Function
---------------------------------------------------------------------
..........................................
При этом вызов в форме такой
ssql = "exec vp_DocsInfo -1, 0, '01.12.2004', '25.12.2004', 0, 2, Null, 'РА ', Null"
Me.sbfDocs.Form.Recordset = RetTableFromSQL(sSql)
так вот на этапе присвоения Me.sbfDocs.Form.Recordset sub форма sbfDocs не не может типа присвоить данные..........

Access 2003 проект ADP

при Set FRM.Recordset = rs_ADO
хоть так
Me.sbfDocs.Form.Recordset = RetRecordFromSQl(sSql, Me.sbfDocs.Form)

выдает сообщение следующее

"The object you entered not a valid RecordSet property"

С ув. к участникам форума, Руслан.

aleks2 ---------------
почему? А хрен его знает.

Спасибо , что оветили уже сам доковырял в субботу точно так.........