´引用sqldmo object library
Dim gSQLServer As SQLDMO.SQLServer
On Error GoTo ErrHandler:
If gSQLServer Is Nothing Then
Set gSQLServer = New SQLDMO.SQLServer
End If
gSQLServer.LoginTimeout = 15
frmSelectServer.Show 1
If frmSelectServer.connecString = \"\" Then Exit Sub
gSQLServer.Connect frmSelectServer.connecString, \"sa\", \"sa\"
Dim oRestore As SQLDMO.Restore
Dim Msg As String
Dim Response As String
Set oRestore = New SQLDMO.Restore
oRestore.DATABASE = \"data\"
CommonDialog1.CancelError = True
_disibledevent= vbDefault
MsgBox \"数据库还原成功！\"

Exit Sub

ErrHandler:
MsgBox \"Error \" & Err.Description
Exit Sub
Errhandler1:
´ 用户按了“取消”按钮
Exit Sub