那位能够帮我看看这段程序错在那里？
调试的时候说是磁盘或网络错误！一直没有搞明白！
       Dim RecordCount As Integer
        Adodc1.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0  ;Data source = & *.dat"
        Adodc1.RecordSource = "select * from " & Txtfile.Text
        Adodc1.Refresh

"provider=Microsoft.Jet.OLEDB.4.0  ;Data source =" &" *.dat"
试试吧

不行，显示的还是硬盘或网络错误！

=Microsoft.Jet.OLEDB.4.0变成=Microsoft.Jet.OLEDB.3.5.1试试

连接access的，你连data干什么？？？？

连ACCES的话，我想可能是关连的路径的问题吧，
后面的改为data source=" & App.Path & 数据库名"
你试下了