Форумы HiProg.com - MS ACCESS, VBA, VB

ник: osmor
Да и на практике тоже

Dim cn As ADODB.Connection, rs As ADODB.Recordset     Set cn = New ADODB.Connection     cn.ConnectionString = "PROVIDER=SQLOLEDB.1;INTEGRATED SECURITY=SSPI;PERSIST SECURITY INFO=FALSE;INITIAL CATALOG=Store;DATA SOURCE=SERVER"     cn.Open     Set rs = New ADODB.Recordset     rs.ActiveConnection = cn     rs.CursorLocation = adUseClient     rs.CursorType = adOpenStatic     rs.LockType = adLockOptimistic     rs.Source = "SELECT * FROM dbo.Products"     rs.Open     rs.Properties("Unique Table") = "Products"     rs.Properties("Resync Command") = "SELECT * FROM dbo.Products WHERE id = ?"     Set Me.Recordset = rs