Excel VBA Connection to Access 2010 - ms-access

Question

I have a class that's handling my connection to an Access 2003 database. I would like to setup the same thing only for Access 07/10 .accdb files. Any help is appreciated! Thank you!
Here's a list of my references and a copy of the class object
References:
Microsoft Access 14.0 Object Library
Microsoft DAO 3.6 Object Library
ConnectionClass:
Option Explicit
Private Const DbFile = "\\server\folders\Report.mdb"
Dim OpenConn As DAO.Database
Dim ObjAccess As Object
Private Sub Class_Initialize()
On Error Resume Next
Set OpenConn = DAO.OpenDatabase(DbFile)
If Err.Number = 3024 Then MsgBox "Check connection string in the VBA StaticClass object", vbOKOnly
Set ObjAccess = CreateObject("Access.Application")
ObjAccess.Visible = False
ObjAccess.OpenCurrentDatabase (DbFile)
End Sub
Public Function runSQL(ByVal sql As String) As Recordset
Set runSQL = OpenConn.OpenRecordset(sql)
End Function
Public Function runVolumeReport(ByVal inMacro As String)
ObjAccess.DoCmd.RunMacro inMacro
End Function
Public Function closeResources()
Set ObjAccess = Nothing
OpenConn.Close
End Function

Answer 1

There is an issue in Class_Initialize.
On Error Resume Next
Set OpenConn = DAO.OpenDatabase(DbFile)
If Err.Number = 3024 Then MsgBox "Check connection string in the VBA StaticClass object", vbOKOnly
Because of On Error Resume Next, any error other than 3024 ("Could not find file") will pass silently and OpenConn will not be set as you intend. Later when you attempt to use OpenConn, you will trigger another error. And, in a comment, you reported you do get another error with this line:
Set runSQL = OpenConn.OpenRecordset(sql)
Unfortunately, due to On Error Resume Next, we don't know why OpenDatabase failed leaving OpenConn unset. Since ObjAccess seems to work as an Access application object, you could try setting OpenConn to ObjAccess.CurrentDb.
Private Sub Class_Initialize()
Set ObjAccess = CreateObject("Access.Application")
ObjAccess.Visible = False
ObjAccess.OpenCurrentDatabase DbFile
Set OpenConn = ObjAccess.CurrentDb
End Sub
OTOH, you may be able to dispense with OpenConn entirely if you change your runSQL function like this ...
Public Function runSQL(ByVal sql As String) As Recordset
'Set runSQL = OpenConn.OpenRecordset(sql) '
Set runSQL = ObjAccess.CurrentDb.OpenRecordset(sql)
End Function

Answer 2

One way to open a accdb (SQL Server) table is this:
Dim cmd As New ADODB.Command
Dim rs As ADODB.Recordset
Dim strSQL As String
strSQL = "select SomeStuff from SomeTable"
cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandText = strSQL ' you can put in the SQL directly,
' but I find the string easier to manipulate away from the .CommandText
Set rs = cmd.Execute
My References (Access 2010):
I think the critical one you would need to add would be the Microsoft ActiveX Data Objects X.X Library

Answer 3

Imports System.Data.OleDb
Public Class Form1
Dim strSQL As String
Dim ds As New DataSet
Dim strConnection As String
Dim DBconnection As New OleDbConnection
Dim oledbAdapter As New OleDbDataAdapter
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=P:\Informatica\April - Juni\Acces\db-games.accdb"
DBconnection = New OleDbConnection(strConnection)
strSQL = "SELECT * from tbl_games"
Try
DBconnection.Open()
oledbAdapter = New OleDbDataAdapter(strSQL, DBconnection)
oledbAdapter.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
DBconnection.Close()
End Sub
End Class
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=P:\Informatica\Acces\db_Games.accdb;Persist Security Info=False")
Dim cmd As New OleDbCommand
con.Open()
cmd.Connection = con
cmd.CommandText = "INSERT INTO tbl_gerne(Omschrijving) VALUES('adventure')"
cmd.ExecuteNonQuery()
con.Close()