If dlg.FileName = "" Then
Exit Sub
End If
If Dir(dlg.FileName) <> "" Then
If MsgBox("文件" & dlg.FileName & "已存在!要覆盖吗?", vbYesNo & vbQuestion, "提示") = vbYes Then
Kill dlg.FileName
Else
Exit Sub
End If
end if
connectString="这里根据情况自己写"
Dim con As New ADODB.Connection
If con.State = adStateOpen Then con.Close
con.ConnectionTimeout = 10
con.Open ConnectString
sql = "BACKUP DATABASE hy TO disk='" & dlg.FileName & "'"
con.Execute (sql)