求救：数据备份问题。在线等

Question

备份文件创建以后马上被删除。以下是代码
    Const mConnectString_MDB1 As String = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=dn;Data Source=GP123"
    MousePointer = 11
    Const mBackPath As String = "C:\"
    Dim mCnn As New ADODB.Command
    Me.Caption = "Loading Backup Function......"
    DoEvents
    'frmBackShow.Show
    DoEvents
    mCnn.ActiveConnection = mConnectString_MDB1
    mCnn.CommandText = "BACKUP DATABASE dn TO DISK = 'C:\12344.ini'" '备份数据库
    mCnn.Execute
    Me.Caption = "Finish"
    MousePointer = 0

Answer 1

mCnn.ActiveConnection = mConnectString_MDB1
这句好像有点问题，我记得这个语句的等号右边是一个数据库连接对象
QQ33524826

Answer 2

可是没有提示出错。我按了运行之后，目录里面马上就出现12344.ini这个文件。运行完毕就被删除。
连接字符串我用变量代替了

Answer 3

'试试这个.
'*************************************************************************
'**模 块 名：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 & _
            IIf(sIsAddBackup, "", ",init")
            
    iDb.Execute iSql
    GoTo lbExit
    
lbErr:
    iReturn = Error
lbExit:
    fBackupDatabase_a = iReturn
End Function