I am trying to rebuild an Access adp project in Access 2013 as and mdb. The tables are all linked tables in both version so that is not an issue.
I have imported the forms from the old project so the form layouts and code is all there.
Where I run into problems is when trying to execute the following code:
Dim cmd As New ADODB.Connection, RS As New ADODB.Recordset
cmd.ActiveConnection = connectionString
Debug.Print connectionString
cmd.ActiveConnection.CursorLocation = adUseClient
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "sp_Myproc"
cmd.Parameters.Refresh
cmd(1) = Me.my_id
Set RS = cmd.Execute
'Should be checking if record set is open and explicitly close it. JWS
If RS.State = 1 Then
RS.Close
Set RS = Nothing
End If
cmd.ActiveConnection.Close
I am not able to declare the cmd and RS variables because ADODB doesn't seem to exist. How do I reference this in Access or what is the correct way to accomplish this?
adodb. We need add 'Microsoft Activex Data Objects Library' from References to reference the ADO in VBA.
To add a reference to a library: Open the database. Press ALT+F11 to start Visual Basic Editor. On the Tools menu, click References.
Add an object library reference to your projectSelect the object library reference in the Available References box in the References dialog box and choose OK. Your Visual Basic project now has a reference to the application's object library.
As I wrote in my comment, you need to check that the ADODB reference is enabled:
Further reference: Using ADO with Microsoft VB & VBA
If you love us? You can donate to us via Paypal or buy me a coffee so we can maintain and grow! Thank you!
Donate Us With