你需要分部测试，首先测试FileSystemObject.CopyFile "C:\Users\admin\Desktop\tycs.mdb", Text1.Text，看到这里文件是否复制成功。
。
连接数据库时候，代码有误。
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = Text1.Text"
改写：
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & Text1.Text
另外：你的CommonDialog的使用不太规范。建议你参考CommonDialog的showsave使用方法
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024