Resetting database password after compacting

[33216CLC]

VB6

Hi,

I have been searching for months for some code to reset the password to an Access mdb file that is used as the backend database for my software. I would like to compact the database everytime the program is opened. I have the code for compacting, but when I use it, I loose to password to the database and am able to open it without having to log in.

May I please have some CODE to do this, PLEASE????

Thanks

 

[Catrina]

Dim JRO As JRO.JetEngine
Dim stSource
Dim stTarget

PW$ = "Password"

Set JRO = New JRO.JetEngine

Access.Close

stSource = "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
" Data Source=pdp.mdb;Jet OLEDBatabase Password=" & PW$

stTarget = "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
" Data Source=pdp1.mdb;Jet OLEDB:Engine Type=5;Jet OLEDBatabase Password=" & PW$

Call JRO.CompactDatabase(stSource, stTarget)

Kill "pdp.mdb"
Name "pdp1.mdb" As "pdp.mdb"

Set Access = New ADODB.Connection
Access.CursorLocation = adUseClient
On Error GoTo errCheck
Access.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
" Data Source=pdp.mdb;Jet OLEDBatabase Password=" & PW$
On Error GoTo 0
Exit Sub

 

[33216CLC]

Thanks Catrina,

I'll try it out.