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

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

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.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

---

Have you tried replacing :

Code:

---

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

---

With :

Code:

---

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

---

?
Also, have you updated the References?

Hi HanneSThEGreaT

I just tried and same error

Code:

---

Conn.Open

---

Full code

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
Attachment 30213