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

''*************************************************************************
''**模 块 名：fBackupDatabase_a
''**描    述：备份数据库,返回出错信息,正常恢复,返回""
''**调    用：fBackupDatabase_a "备份文件名","数据库名"
''**参数说明：
''**          sBackUpfileName  恢复后的数据库存放目录
''**          sDataBaseName    备份的数据名
''**          sIsAddBackup     是否追加到备份文件中
''**说    明：引用Microsoft ActiveX Data Objects 2.x Library
''**创 建 人：邹建
''**日    期：2003年12月09日
''*************************************************************************
Public Function fBackupDatabase_a(ByVal sBackUpfileName$ _
                                , ByVal sDataBaseName$ _
                                , Optional ByVal sIsAddBackup As Boolean = False _
                                ) As String
                                
    Dim iDb As ADODB.Connection
    Dim iConcStr$, iSql$, iReturn$
    
    On Error GoTo lbErr
    
    ''创建对象
    Set iDb = New ADODB.Connection
    
    ''连接数据库服务器,根据你的情况修改连接字符串
    iConcStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=zj"
    iDb.Open iConcStr
    
    ''生成数据库备份语句
    iSql = "backup database [" & sDataBaseName & "]" & vbCrLf & _
            "to disk=''" & sBackUpfileName & "''" & vbCrLf & _
            "with description=''" & "zj-backup at:" & Date & "(" & Time & ")''" & vbCrLf & _
            I