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!!!!!!