如何用VB6.0备份和恢复MySql数据库？

我现在急用，那位大哥能帮帮我啊 --------------------编程问答--------------------
碰巧我也用到了。我的代码是这样的（测试过能用的）

备份按钮的代码
Dim strsql As String
 If Text1.Text = "" Then
 MsgBox "请选择存储路径!", , "友情提示"
 Command7_Click
 Else
 Shell "cmd /c mysqldump -u" & user & " -p" & key & " " & db & ">" & Text1.Text, vbHide
 MsgBox "数据库备份成功", , "友情提示"

还原按钮的代码
Dim strsql As String
On Error GoTo Err1
Shell "cmd /c mysql  -u" & user & " -p" & key & " " & db & "<" & Text2.Text, vbHide
MsgBox "还原数据库成功", , "友情提示"
Exit Sub
Err1:
MsgBox "还原数据库失败！", vbOKOnly + vbCritical, "友情提示"

补充：VB ,  数据库(包含打印，安装，报表)