vb 通过复制文件达到新建access数据库问题

我是新手做毕业设计 麻烦大神指点下啊

 Private Sub new_Click()
        On Error GoTo Cancel
        Dim FileName As String
        Dim FileSystemObject As Object
        CommonDialog1.Filter = "microsoft access 数据库(*.mdb)|*.mdb"
        CommonDialog1.Action=2
        Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
        FileSystemObject.CopyFile "C:\Users\admin\Desktop\tycs.mdb", " & CommonDialog1.FileName "        
Cancel:
End Sub

copyfile那句好像有问题 希望复制到commondialog的路径下并且保存文件名为commondialog中输入的文件名,格式为.mdb(ACCESS).上面那句写完保存格式为

只是新建的文件 很有问题 不知道哪里出错了，，麻烦大神指点下。

    FileSystemObject.CopyFile "C:\Users\admin\Desktop\tycs.mdb", CommonDialog1.FileName