有关.CompactDatabase的问题,大家帮我看看

iron

       Dim Je As New JRO.JetEngine

       Dim strSPath As String, strDPath As String, strTPath As String

       Dim dbs As DAO.Database

       Dim tdf As DAO.TableDef

       Dim str As String, strp As String

           ' Loop through all tables in the database.

           Set dbs = CurrentDb

           For Each tdf In dbs.TableDefs

               ' If the table has a connect string, it's a linked table.

               If Len(tdf.Connect) > 0 Then

                   str = Trim(Right(tdf.Connect, Len(tdf.Connect) - InStr(tdf.Connect, "DATABASE=") - 8))

                   strp = Mid(tdf.Connect, InStr(1, tdf.Connect, "WD=") + 4, (InStr(1, tdf.Connect, "DATABASE=") - (InStr(1, tdf.Connect, "WD=") + 4) - 1))

               Exit For

               End If

           Next tdf

      

   

       strSPath = str

       strDPath = CurrentProject.Path & "\tempdb.mdb"

       strTPath = CurrentProject.Path & "\bakdb.mdb"

         

      

      

       Je.CompactDatabase "rovider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strSPath & ";OLEDBatabase Password=" & strp, "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strDPath & "; Jet OLEDBatabase Password=" & strp & ""



最后这段代码不知道那里错了.