谁能帮我改下这段代码.现在文件名无法进入数据库

Question

Private Sub Command2_Click()    If Common1.filename <> vbNullString Then        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\Status.mdb;Persist Security Info=False"
        con.Open        Set rs = con.Execute("insert into tb_Paths (Paths) values('" & Common1.filename & "')")
        con.Close
        MsgBox "数据保存成功", 64, "提示信息"    End If    Set con = Nothing
    Set rs = NothingEnd Sub这段代码执行完是把文件的路径存放在数据库中，文件名无法存储。tb_Paths是表名，PATHS路径都存放在这里，表里我还建了一个叫 filename的列，用来存文件名，求高手对我这段代码进行下修改，使它同时能够存放文件名，和路径，谢谢，积分全部奉上

Answer 1

数据库插入语句错误.你的tb_Paths有PATHS和filename,插入语句应该是
insert into tb_Paths (Paths,filename) values('" & Common1.filename & "','你的文件名')

Answer 2

insert into tb_Paths (Paths,filename) values('" & Common1.filename & "','你的文件名')
你的文件名'这个要怎么写？需要用截取字符串来获取文件名吗？

Answer 3

'****************************************************************************************************
'函数:                                                                            GetFileNameFromPath
'作用:  从完整路径获取 所在目录
'输入:  完整路径, 目录分隔符
'返回:  所在目录
Public Function GetFileNameFromPath(ByVal strFullPath As String, Optional ByVal strSplitor As String = "\") As String
    GetFileNameFromPath = Right$(strFullPath, Len(strFullPath) - InStrRev(strFullPath, strSplitor, , vbTextCompare))
End Function上面这个是自己写的函数, 你把它拷到程序代码窗口的空白位置中或放在标准模块里, 然后用 
Msgbox GetFileNameFromPath("E:\Mp3\卫兰 - 等.mp3") 
就可以看到结果了. 函数的用法: GetFileNameFromPath(路径,分隔符)
分隔符默认是"\", 如果改为"/"则可以提取网页地址中的文件名如提取
http://www.sina.com.cn/index.htm 中的 index.htm 就是 Msgbox GetFileNameFromPath("http://www.sina.com.cn/index.htm","/")