VB6下数据库备份与还原代码修改

Private rs As New ADODB.Recordset
Private Rs_user As New ADODB.Recordset
Private str As String
Private Sub cmdBack_Click()
  If Text1.Text = "" Then
     MsgBox "备份数据库路径不能为空！"
     Exit Sub
  End If
  Dim F As String
  
  F = InputBox("请输入新建表的表名：", "建表提示") 'Text1.Text & "\" & Format(Date, "YYYY-MM-DD") & "：" & Format(Time, "hh") & ".BAK"
  Call cnn
  Set rs = New ADODB.Recordset
  str = "BACKUP DATABASE 警员工资管理系统 TO DISK ='" & F & " '"
   'Connection 对象的 Execute 方法，执行指定的查询、SQL 语句、存储过程或特定提供者的文本等内容。
  Set rs = cnn.Execute(str)
  MsgBox "数据库备份成功！"
  cnn.Close
End SubPrivate Sub cmdRestore_Click()
  If Text1.Text = "" Then
     MsgBox "请选择数据恢复文件！"
     Exit Sub
  End If
  On Error GoTo zhang
  Call cnn
  Set rs = New ADODB.Recordset
  cnn.Execute ("Alter DATABASE 警员工资管理系统 set single_user with rollback immediate use master RESTORE DATABASE 警员工资管理系统 from disk='" + Text2.Text + "'")
  str = "Alter DATABASE 警员工资管理系统 set multi_user"
   'Connection 对象的 Execute 方法，执行指定的查询、SQL 语句、存储过程或特定提供者的文本等内容。
  Set rs = cnn.Execute(str)
  MsgBox "数据库恢复成功！"
  cnn.Close
  Exit Sub
zhang:
  MsgBox "由于系统数据量大,数据库恢复已经超时,请退出系统从新操作数据备份!!!", , "系统提示"
  cnn.Close
  End
End SubPrivate Sub Dir1_Change()
  File1.Path = Dir1.Path
End SubPrivate Sub Dir1_Click()
  Text1.Text = Dir1.Path
End Sub
Private Sub Drive1_Change()
  Dir1.Path = Drive1.Drive
End SubPrivate Sub File1_Click()
  If Mid(File1.FileName, 14, 17) <> ".BAK" Then
     MsgBox "请您选择拓展名为‘.BAK’的文件为合法文件"
     Exit Sub
  End If
  Text2.Text = Dir1.Path & "\" & File1.FileName
End SubPrivate Sub Form_Unload(Cancel As Integer)
  frm_main.Enabled = True
End Sub模块
Public PublicStr As String
Public sql1 As String
Public sql2 As String
Public sql3 As String
Public KHZL_RS As New ADODB.Recordset
Public mouse_scroll_frm, mouse_scroll_mfg, mouse_scroll_bar As Object
Private con As New ADODB.Connection
Private rs As New ADODB.Recordset
Dim str As String
Public Function cnn() As ADODB.Connection     '共享数据库连接
  Set cnn = New ADODB.Connection
  cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=警员工资管理系统;Data Source=."
End Function
Public Sub Main()
'附加数据库
  On Error Resume Next
  con.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=警员工资管理系统;Data Source=."
  con.Open     '打开数据库连接
  Set rs = New ADODB.Recordset
  '开始附加数据库
  str = "EXEC sp_attach_db @dbname = N'db_SSS', @filename1 = N'" + App.Path + "\DataSource\db_SSS_Data.MDF" + "', @filename2 = N'" + App.Path + "\DataSource\db_SSS_Log.LDF" + "'"
'  rs.Open str, con, 1, adLockOptimistic
  Set rs = con.Execute(str)
  con.Close  '关闭数据库连接  PublicStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=警员工资管理系统;Data Source=."
 form1.Show
End Sub主要问题是运行后弹出想要保存的表的名称，但是保存不了，是哪里不对 ，那位帮忙看一下丫！