The following code is for creating a Server-side Recordset.
Option Explicit
Dim CN As Connection
Dim comobj As Command
Dim rs As Recordset
Private Sub Form_Load()
Set CN = New Connection
Set comobj = New Command
Set rs = New Recordset
rs.CursorType = adOpenStatic
rs.CursorLocation = adUseServer
With CN
.ConnectionString = “Integrated Security=SSPI;Initial Catalog=FinAccounting;Data Source=SYS1”
.Provider = “SQLOLEDB”
.Open
Option Explicit
Dim CN As Connection
Dim comobj As Command
Dim rs As Recordset
End [...]
Filed under: visual basic | Tagged: recordset | Leave a Comment »

Globe of Blogs
