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

[wilder1926]

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:

oRST1.Open Conns, Conn

Can you please help me?

Thanks again

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

[jggtz]

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

[wilder1926]

Hi jggtz

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

Conn.Open

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

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

[si_the_geek]

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.

[firoz.raj]

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

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

[si_the_geek]

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