指定了路径，还是报错

呃， 你发的这个只是我没有删除的登陆界面的读取txt配置的一个过程。我的所有代码都全在里面了。
如果只是要看表格演示过挰，你可以直接修改连接路径就行了，代码直接改几个字就行了。
如果是别人写的代码逻辑，我也可以一步一步 F8 看， 就能搞清楚了。

建议使用VSFLEXGRID这个表格控件，功能强大，使用很方便，大部份功能设置与msflexgrid一样，但功能更多，更重要的是支持打印，这点很重要。

好的

感谢！
请教一下，VSFLEXGRID 需要收费吗，还是免费开源的？

看你做的这个界面，你是做机加工行业的，你做的这个界面
我要做的大部分模块功能和你左边菜单标的差不多。
你开发完这一套花了多长时间 ？

提一个浩大代码的建议

显示界面做的不好看，可以不可以使用 webbrow 来显示 ，程序里生成 html 代码，再加上CSS，加上JS，拼起来显示。
选中的话，可以使用JS后台提交数据，程序拦截提交的数据来响应。

目前编程储备知识还不够，风版的这些好的建议我们还没有能力去实践，
慢慢进步，慢慢来。

'vsflexgrid获取数据源
Function VSFGridAdd(SqlText As String, vsfg As Object) As Recordset
    Dim cn As New ADODB.Connection
        If cn.State = adStateOpen Then cn.Close
        cn.ConnectionString = ConnectString
        cn.Open
        cn.CursorLocation = adUseClient         '使用客户端游标   
        Dim MyComm As New          '定义一个命令对象
        Dim param As ADODB.Parameter            '定义一个参数对象
        Set VSFGridAdd = New ADODB.Recordset
        With MyComm
                .ActiveConnection = cn           '数据连接
                .CommandType = adCmdText         '调用SQL 查询语言
                .Prepared = True                 '要求将SQL命令先行编译
                .CommandText = SqlText
        End With
        If TypeOf vsfg Is VSFlexGrid Then
            vsfg.VirtualData = False             '如果为true,只能显示前100条记录
            Set vsfg.DataSource = MyComm.Execute()
        Else
            Set VSFGridAdd = MyComm.Execute()     ' 执行此存储过程，返回记录集
        End If
End Function

如果数据源是TXT文件，怎么引用到这个表格控件上来呢