Using ADO from within access

[Pete Davis]

From a piece of sample VBA code in Access, I've seen that with DAO, you can
do something like:

Dim db As DAO.Database
db = CurrentDb

Is there an equivalent for ADO? I know ADO doesn't have a database object.

Basically, I want to use the current database for my work and I need to use
ADO.

Thanks.

Pete

 

[Peter Hoyle]

Dim cnn As ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String

Set cnn = CurrentProject.Connection
strSQL = "SELECT * FROM tblMyTable"
rs.Open strSQL, cnn
rs.MoveFirst

etc.

Cheers,
Peter

 

[Pete Davis]

Thank you both very much. That was a great help.

Pete

--
http://www.petedavis.net

Dim cnn As ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String

Set cnn = CurrentProject.Connection
strSQL = "SELECT * FROM tblMyTable"
rs.Open strSQL, cnn
rs.MoveFirst

etc.

Cheers,
Peter