VB backup and recovery can not find a match how to solve-CodePudding

 Dim cn As New ADODB. Connection 
Dim fsofile 
If cn. State & lt;> 0 Then cn. Close 
The Set cn=Nothing 
The Set fsofile=CreateObject (" scripting. Filesystemobject ") 
CommonDialog1. Filter="MDB files (*. MDB) | *. MDB" 
CommonDialog1. CancelError=True 
On Error GoTo myerr 
CommonDialog1. ShowSave 
Fsofile. Used by copyfile App. Path & amp; "\ FDCPGGL MDB," CommonDialog1. FileTitle 
Dim the connectionstring As String 
The connectionstring="provider=Microsoft. Jet. The oledb. 4.0;" & _ 
"Data source=" & amp; App. The Path & amp; "\ FDCPGGL MDB 
"Cn. Open the connectionstring 
The Exit Sub

Myerr:
Program there is no error, after running out of file save as no search to match, how to solve

CodePudding user response:

CommonDialog1 FileTitle is without a path, and it should use CommonDialog1. The Filename?