请教：关于数据恢复的问题

Private Sub kaishf_cmd_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)If (Text1.Text = "") Then
    MsgBox "请按浏览按钮选择要恢复的目录!"
    Exit Sub
End If    shutdown = functionid & "\bin\mysqladmin shutdown"
    Shell (shutdown)
    MsgBox "请稍后...."    Dim fso As New Scripting.FileSystemObject
    Dim i As Integer
    Dim j As Integer
    For i = 1 To 1000
        For j = 1 To 1000
        Next j
        For j = 1 To 1000
        Next j
        For j = 1 To 1000
        Next j
        For j = 1 To 1000
        Next j
    Next i
    MsgBox "正在恢复...."
    Shell (functionid & "\bin\mysql")
    If fso.FolderExists(functionid & "\data\xinkuc") Then
       fso.DeleteFolder functionid & "\data\xinkuc"
    End If
    
    fso.CreateFolder functionid & "\data\xinkuc"
    fso.CopyFolder Trim(Text1.Text), functionid & "\data\xinkuc"
    MsgBox "恢复成功¡"
    start = functionid & "\bin\mysqld-nt --standalone"
    Shell (start)
    Text1.Text = ""
    Unload MeEnd Sub打包安装后，在运行到msgbox "恢复成功!"后，下面一句就过不去了，也就是服务起动不起来了，只有在一台机器上出现这种问题，另外测试的四台机器都没有这种问题，郁闷，请教大虾，是何原因？