我想在执行这段代码的时候加入进度条，不知道啷个玩，哪位神帮个忙？
Private Sub Cmd_Mail_Click()
   Call Find   
   SendMail Date & "备份文件", "请注意查收并保存", "D:\database.mdb" '发送邮件，文件会越来越大，所以越到后期，执行的时间就越长
 Kill "D:\database.mdb"
End Sub

Sub Find()
Dim TmpPath As String
  conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & App.Path & "D:\database.mdb" & "';Persist Security Info=False"
  conn.Open
  If rst.State = adStateOpen Then rst.Close
       rst.Open "SELECT * FROM MSysObjects ", conn, adOpenKeyset, adLockOptimistic
          For intLoop = 0 To rst.RecordCount - 1
              If rst.Fields("database").Value <> "" Then
                 TmpPath = rst.Fields("database").Value
                 Exit For
              End If
          rst.MoveNext
          Next intLoop
 Set conn = Nothing
 Set rst = Nothing
  If TmpPath <> "" Then
     FileCopyEx TmpPath, "D:\database.mdb"
     Else
     FileCopyEx App.Path & "\datas\data.mdb", "D:\database.mdb"
 End If
End Sub