想问一下各位高手，怎么实现双击数据库记录然后按照某字段值弹出与此字段值相同的的文件夹窗口，以下是小弟自己编的，不过报错误说找不到路径，求助各位高手~~~~~
Dim filename As String
    Dim filedir As String
    Dim fh As Long
    filename = adoPrimaryRS.Fields("文章编号") & ""
    filedir = "c:\ & filename & "
    fh = Shell(filedir, 1)

Private Sub Command1_Click()
Shell "explorer.exe c:\", 1
End Sub

shell"explorer.exe c:\",1
"c:\"后面能跟变量吗？

当然。
Dim filename As String
    Dim filedir As String
    Dim fh As Long
    filename = adoPrimaryRS.Fields("文章编号") & ""
    filedir = "explorer.exe c:\ & filename & "
    fh = Shell(filedir, 1)

哦哦~~~谢谢斑竹了~~~~