Question : is there  64-bit Jet OLEDB Provider??

Hi all,
I have recently move from using windows xp pro sp3 32bit when coding to using Windows 7 64bit, i still have xp pro 32 bit  on my main coding system but on my notebook it has windows 7 64bit, i am needing this for my clients that have upgraded to windows 7.  The problem i have here is that i was getting connection issues. i Was using the connection string

cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dbfile;Persist Security Info=True"

and have worked out after research that i cant not use jet in 64bit OS, this is why it is still working in my Xp code
Can some please help me get around this can tell me what i need to change in my connection string to get around this
i would love some help please i need to get his issues fixed asap
Code Snippet: 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

Option Explicit On
Module connection 
    Public DBFile As String
    Public Source As String
    Public cnn1 As New ADODB.Connection
    Public ShowExt As Boolean
    Private HasAccess As Boolean 
 
    Public Sub connect() 
        Dim rs As New ADODB.Recordset 
        Dim location As String
        location = GetSetting("Adby", "Invoiceit", "databaselocation")
        'DBFile = GetSetting("horizoncomm", "bodyimage", "databaselocation") & "bodyimage.mdb"
        ' On Error Resume Next
   
        DBFile = location & "InvoiceIT.accdb"
        cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dbfile;Persist Security Info=True"
       
        cnn1.Open() 
        Form1.dblocation.Text = "Database Location" & " " & DBFile 
DBSafe:
        Exit Sub
DBError:
        cnn1.Close()
        MsgBox(Err.Description & vbCrLf & vbCrLf & "Failed to 'connect to database", vbCritical, "Error")
        Resume DBSafe
    End Sub
End Module
Open in New Window
Select All

Answer : is there  64-bit Jet OLEDB Provider??

It should be:
    cnn1.ConnectionString = "Provider=SQLNCLI;Data Source=horizonp;Initial Catalog=invoiceit;User Id=sa;Password=;"
As documented at http://www.connectionstrings.com/sql-server-2005#p20
Random Solutions  
 
programming4us programming4us