Disconnected recordset

This should be very simple but I just can't seem to get my head around this.  I need a way to open a recordset from the client side and close the connection to the database.  I then want to be able to use the recordset to bind to a datasource for a report. I'll start this out at 30 points and increase depending upon the comments given.
LVL 1
tkuppinenAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

JuiletteCommented:
'open database and set database and recordset

'to close it use close.cDBName
'close recordset...close.rs

Public Sub OpenDB()

              Dim AppPath$
           
        If Right(App.Path, 1) <> "\" Then _
              AppPath = App.Path & "\" _
        Else AppPath = App.Path
       
              cDBName = AppPath & "Art.mdb"
       
              cTblName = "Gallery"

              Data1.DatabaseName = cDBName
              Data1.RecordSource = cTblName
         
              Data1.Refresh

          End Sub

      Private Sub Form_Load()
      '
              Call OpenDB
      '
              Set db = Workspaces(0).OpenDatabase(cDBName)
              Set rs = db.OpenRecordset(cTblName)

      End Sub

'doesn't answer all but might be of help
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
tkuppinenAuthor Commented:
Actually, I was able to find the answer I was looking for by looking at another question.  I'll post the answer I came up with and give juliette the pointsd just to add this to the archive.n  This is part of a test system and to implement this in an n-tier application there will be modifications but I think the general idea is here.

Dim rsTest As ADOR.Recordset, cmdTest As ADODB.Command
Set cmdTest = New ADODB.Command
Set rsTest = New ADOR.Recordset
cn.Open ("aps_test")
cmdTest.ActiveConnection = cn
cmdTest.CommandText = "select f_name from employees"
cmdTest.CommandType = adCmdText
rsTest.CursorLocation = adUseClient
rsTest.LockType = adLockOptimistic

rsTest.Open cmdTest
Set rsTest.ActiveConnection = Nothing

cn.Close
rsTest.MoveFirst
MsgBox rsTest("f_name")
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.