先引用ADO：工程--引用--选择MS ActiveX Data Objects代码：Dim Access_Con As ConnectionSet Access_Con = New ConnectionAccess_Con.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;data source=" & App_Path & "\FHL数据.mdb;"
Access_Con.Open Dim rs As RecordsetSet rs = New Recordsetrs.Open "select * from 用户管理", Access_Con''''查询结果将在rs中，可以把rs绑定在datagrid里查看数据等
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024