用VB运行编好的程序后显示找不到数据库，请检查网络配置或打开数据库服务器怎么解决？

如果你的数据库连接控件（ADODC）或ADODB的Connection对象，设置的是数据库的绝对路径（如E:\myapp\data\db1.mdb），那么当数据库的位置发生变动时（比如把程序拿到其他计算机运行时），就会提示找不到数据库了。解决的办法是把绝对路径改为相对路径（相对于本exe文件所在的文件夹，比如data\db1.mdb）。

dim cn as connection

'连接数据库

set cn=new connection

cn.open "Provider=Microsoft.ACE.OLEDB.12.0Data Source=你数据库路径和名称Jet OLEDB:Database Password=数据库密码"

if cn.state=adstateopen then

msgbox "连接成功"

else

msgbox "连接失败

end if

set cn=nothing

VB读取数据库并显示出来的方法可参考下面用控件的实现方法：

ACCESS数据库，用VB6里的Data控件，选中它，设置属性：

DatabaseName 属性：连接到数据库文件

RecordSource 属性：连接数据表（可以用Select语句返回记录集）

然后使用它的：data1.Recordset.Fields(“字段名”)，就可以返回获得你说的内容了。

---