[VB6] - Connect Microsoft access 2010 dbase to a VB6 project issue

[wilder1926]

Hello all

I used to use this code bellow for accessing an access 2007 dbase but it looks like 2010 is not the same.
I'm also on windows 7 64

I have this error:
"Run time error 3706 Provider cannot be found, it may not be properly installed" on this part of the code: Conn.Open

How can i fix this?

Thanks again for your help

Dim Conn As ADODB.Connection
Dim Conns As String
Dim oRST1 As ADODB.Recordset
Set oRST1 = New ADODB.Recordset
  
Set Conn = New ADODB.Connection
Conns = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & Form2.txtBaseDelabsolution.Text
Conn.ConnectionString = Conns
Conn.Open
nom.AddItem ""
oRST1.Open Conns, Conn
Do Until oRST1.EOF
  nom.AddItem oRST1("Nom")
  oRST1.MoveNext
Loop

[HanneSThEGreaT]

Have you tried replacing :

Conns = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & Form2.txtBaseDelabsolution.Text

With :

Conns = "Provider=Microsoft.ACE.OLEDB.14.0;" & "Data Source=" & Form2.txtBaseDelabsolution.Text

?
Also, have you updated the References?

[wilder1926]

Hi HanneSThEGreaT

I just tried and same error

Conn.Open

Full code

Dim Conn As ADODB.Connection
Dim Conns As String
Dim oRST1 As ADODB.Recordset
Set oRST1 = New ADODB.Recordset
  
Set Conn = New ADODB.Connection
Conns = "Provider=Microsoft.ACE.OLEDB.14.0;" & "Data Source=" & Form2.txtBaseDelabsolution.Text
Conn.ConnectionString = Conns
Conn.Open
nom.AddItem ""
oRST1.Open Conns, Conn
Do Until oRST1.EOF
  nom.AddItem oRST1("Nom")
  oRST1.MoveNext
Loop

here are also the references i have
References.jpg