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

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:
Runtime Error 3709
The Connection Cannot be used to perform this kind of operation.
it is either closed or invalid in this context

I think the issue is with this part of the code but i dont know why:

Code:

---

oRST1.Open Conns, Conn

---

Can you please help me?

Thanks again

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

---

The error is clear enough, the connection is closed
You have the line commented
'Conn.Open

Hi jggtz

Sorry, that was one of my test.
If i do

Code:

---

Conn.Open

---

i have the "Run time error 3706 Provider cannot be found, it may not be properly installed"

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 installed the 32-bit version of ACE?

You can download it via the link in my signature, but be warned that you cannot have the 32-bit version and the 64-bit version installed at the same time, so if the 64-bit version is needed by any other program you will have lots of work to do just to be able to use your program (or the other) each time.

Can you try the following way ? as you have missed the set Keyword.

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
set Conn.ConnectionString = Conns
Conn.Open
nom.AddItem ""
oRST1.Open Conns, Conn
Do Until oRST1.EOF
  nom.AddItem oRST1("Nom")
  oRST1.MoveNext
Loop

---

Set is not valid, because .ConnectionString is not an object (it is a String).