备份数据时如何使用进度条?

Question

备份代码如下
Private Sub XPButton1_Click()
    Dim Ret As String
    Dim i As Integer    '备份数据库vincent
    Ret = MsgBox("备份主要数据库--" & D_data & " ？", vbOKCancel + vbInformation, "提示")
    If Ret = vbOK Then
        '执行备份
        connectstring = "Provider=SQLOLEDB.1;Initial Catalog=master;Data Source=" & D_server & ";UID=" & D_user & ";PWD=" & D_pass
        MousePointer = 11
        Dim cN As New ADODB.Connection
        If cN.State = adStateOpen Then cN.Close
            cN.ConnectionTimeout = 10
            cN.Open connectstring
            Dim fn As String
            fn = Dir1.Path & "\" & repl(Now()) & ".bak"
        sql = "BACKUP DATABASE " & D_data & " TO disk='" & fn & "'"
        cN.Execute (sql)        cN.Close
        Set cN = Nothing
        MousePointer = 0
        MsgBox "备份成功!", vbInformation, "提示"
    End If
End Sub怎么样用进度条来显示备份的进度

Answer 1

我很菜,可否详细点!
或者给个例子