Disconnected Recordsets in ADO?

[jws1414]

I am having trouble creating a disconnected recordset with ADO. The information I have seems to be incomplete. I open a connection, create a recordset, and when I try to use the ActiveConnection = Nothing it tells me that I can't as long as the database is open, but if I close the connection, it also gives me an error. Can someone help?

Thanks!

[DrewDog_21]

post your code so the gurus here can have a look

[jws1414]

Here is the code that I have:



Set cnSQL = New ADODB.Connection
Set rstClaims = New ADODB.Recordset

With cnSQL
.ConnectionString = "Provider=Microsoft.JET.OLEDB.3.51;Data Source=" & xpath & "Spmedbk.mdb"
End With

cnSQL.Open

rstClaims.CursorType = adOpenStatic
rstClaims.Open "Select * FROM IN93010A", cnSQL, , adLockBatchOptimistic

Set rstClaims.ActiveConnection = Nothing
cnSQL.Close


Any help that you all can give me would be greatly appreciated. I am trying to connect to an Access Database that is on my computer (the path is xpath obviously).

[JHausmann]

For recordset usage, the activeconnection property can be changed until you open the recordset, at which point it becomes read-only.

[compuGEEK]

rstClaims.Open "Select * FROM IN93010A", cnSQL, , adLockBatchOptimistic

Try this:

dim rstClaims as New ADODB.Recordset

with rstClaims
     .ActiveConnection = "Provider=Microsoft.JET.OLEDB.3.51;Data Source=" & xpath & "Spmedbk.mdb"
     .CursorLocation = asOpenStatic
     .LockType = adLockBatchOptimistic
     .Source =  "Select * FROM IN93010A"
     .Open
end with

This should make closing everything easier:

     Set adoRS.ActiveConnection = Nothing

[jws1414]

Thanks compuGEEK!! It worked like a charm!!!!!!