VB实现SQL Server数据库备份/恢复

If(sIsAddBackup, "", ",init")
            
    iDb.Execute iSql
    GoTo lbExit
    
lbErr:
    iReturn = Error
lbExit:
    fBackupDatabase_a = iReturn
End Function

''*************************************************************************
''**模 块 名：frestoredatabase_a
''**描    述：恢复数据库,返回出错信息,正常恢复,返回""
''**调    用：frestoredatabase_a "备份文件名","数据库名"
''**参数说明：
''**          sDataBasePath  恢复后的数据库存放目录
''**          sBackupNumber  是从那个备份号恢复
''**          sReplaceExist  指定是否覆盖已经存在的数据
''**说    明：引用Microsoft ActiveX Data Objects 2.x Library
''**创 建 人：邹建
''**日    期：2003年12月09日
''*************************************************************************
Public Function fRestoreDatabase_a(ByVal sBackUpfileName$ _
                                , ByVal sDataBaseName$ _
                                , Optional ByVal sDataBasePath$ = "" _
                                , Optional ByVal sBackupNumber& = 1 _
                                , Optional ByVal sReplaceExist As Boolean = False _
                                ) As String
    
    Dim iDb As ADODB.Connection, iRe As ADODB.Recordset
    Dim iConcStr$, iSql$, iReturn$, iI&
    
    On Error GoTo lbErr
    
    ''创建对象
    Set iDb = New ADODB.Connection
    Set iRe = New ADODB.Recordset
    
    ''连接数据库服务器,根据你的情况修改连接字符串
    iConcStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=zj&q