Simple question

[Southern Prince]

How do I open the current db connection using ADO?

Thanks in advance...

 

[boblarson]

Dim cnn As ADODB.Connection

Set cnn = CurrentProject.Connection

 

[Southern Prince]

Hey thanks...

Is this necessary?

   Set cn = CurrentProject.Connection
            cn.CursorLocation = adUseClient
            cn.Open

I keep getting "Operation is not allowed when object is open". It highlights cn.Open

 

[boblarson]

nope

you can then use

Dim cnn As ADODB.Connection
Dim rst as ADODB.Recordset

Set cnn = CurrentProject.Connection
Set rst=New ADODB.Recordset

rst.Open "MyTableNameHere", cnn, adOpenDynamic, adLockOptimistic

to get a recordset.

You can change the adOpenDynamic to whatever of the 4 options you need for your cursor and also the same with adLockOptimistic for the locks.

 

[Southern Prince]

Dumb question... I got it...