[RESOLVED] Connection String

[Dbee]

Connection String

Connects.Provider = "Microsoft.jet.oledb.4.0"
 Connects.Properties("Jet OLEDB:database Password").Value = Trim(Softpassword)
 Connects.ConnectionString = "data source=" & Dr + Software

I get this On Debug

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Layout\Lay.Mdb;Jet OLEDBatabase Password=13241"

Then When I do a

Connects.Open

I get this "Data Source=C:\Layout\Lay.Mdb"

And A error Not a Database Format

Any Ideas

[Asgorath]

Maybe the database file has been corrupted, can you open it with access?
Jorge

[Dbee]

This is a Working access97 database and the Compact routine says un recgonized Format'

compact routine:

Sub Do_Compact()
 Dim JRO As New JRO.JetEngine
 Dim cnnSrc As New ADODB.Connection
 Dim strSource As String
 Dim strDestDB As String
 Dim strPassword As String
 Dim iFileStart As Integer
 Dim tl As Long
 strPassword = Trim(Softpassword)
 strSource = Dr + Software
 iFileStart = InStrRev(strSource, "\", , vbTextCompare)
 strDestDB = Mid$(strSource, 1, iFileStart) & "Backup of " & Mid$(strSource, iFileStart + 1)
 JRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strSource & ";Jet OLEDB:Database Password=" & strPassword, _
 "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDestDB & ";Jet OLEDB:Database Password=" & strPassword
 Kill strSource
 Name strDestDB As strSource
 Set JRO = Nothing
End Sub

[Mark Gambo]

Have you tried using the old provider MDAC 3.51?