[RESOLVED] Connection String

Connection String

VB Code:

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 OLEDB:Database 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

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

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

compact routine:

VB Code:

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

Have you tried using the old provider MDAC 3.51?