[5分]关于自动压缩数据库函数中的疑点

这是李导欢的自定义压缩修复数据库的函数：

Public Function RepairDatabase(strSource As String) As Boolean
    On Error GoTo error_handler
    Dim i As Integer
    '生成压缩后的文件名
    Dim strDestination As String
    i = 1
    Do
        strDestination = strSource & i
        If Dir(strSource & i) = "" Then
            Exit Do
        Else
            i = i + 1
        End If
    Loop
      RepairDatabase = _
    Application.CompactRepair( _

                              LogFile:=True, _
                              SourceFile:=strSource, _
                              DestinationFile:=strDestination)
    '压缩完成后删除原文件
    Kill strSource
    '把压缩后的文件名改成原文件名
    Name strDestination As strSource
    On Error GoTo 0  

   Exit Function
error_handler:
    RepairDatabase = False
End Function 

对有下划线标记的代码不理解，strDestination= strSource & i，这个strDestination难道有多个？i究竟循环至几才结束？还有   On Error GoTo 0  它是什么意思，以前我见过的是有个0标号的代码，可这里没有。敬请老师们予以解答，谢谢！