压缩并修复有密码的ACCESS数据库

Question

怎么用VB代码压缩并修复ACCESS数据，数据库有密码

Answer 1

Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Text1.Text & ";User ID=; Jet OLEDB:database Password = 密码 "
Text1.Text mdb的路径
要怎么弄啊，各位大哥

Answer 2

Private Sub Command1_Click()
    Dim jro     As jro.JetEngine
    Set jro = New jro.JetEngine
    
    jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Text1.Text & ";User ID=; Jet OLEDB:database Password = 密码 ", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Text2.Text & ";User ID=; Jet OLEDB:database Password = 密码 "End Sub

Answer 3

引用Microsoft   Jet   and   Replication   Objects   X.X   library，其中   (   X.X   大于或等于   2.1   )