找到一个压缩ACCESS的函数，但不知如何调用？

Public Function ADOCompactDB(SourceFile As String, DestinationFile As String, Optional strPwd As String = "") As Boolean
'JET引擎压缩数据库
'---需引用Microsoft Jet and Replication Objects X.X library，其中 ( X.X 大于或等于 2.1 )。
'---适用范围广，带密码的数据库也可以
    On Error GoTo err_adoCompactDB
    Dim srph As String, ysdb As String
    Dim je As New JRO.JetEngine
    srph = DestinationFile
    ysdb = SourceFile
    If Dir(srph) <> "" Then Kill srph
    je.CompactDatabase "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ysdb & ";Jet OLEDB:Database Password=" & strPwd, "Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & srph & ";Jet OLEDB:Database Password=" & strPwd
    Set je = Nothing
    FileCopy srph, ysdb
    Kill srph
    ADOCompactDB = True
exit_adoCompactDB:
    Exit Function
err_adoCompactDB:
    ADOCompactDB = False
    MsgBox Err.Description, vbCritical, "错误提示"
    Resume exit_adoCompactDB

	End Function



	





	这个函数，怎样使用呢？？