Public Sub conn() Dim conn As New ADODB.Connection '定义连接数据库用到变量 Dim Connstr As String Dim rs As New ADODB.Recordset Dim strsql As String Connstr = "PROVIDER = Microsoft.Jet.OLEDB.4.0;Data Source= " + App.Path + "\client.mdb;" conn.Open Connstr End Sub

我的数据库放在d:\client\client.mdb 程序都放在d:\client 操作系统是win2003 VB版本6.0

错误提示是: 编译错误:用户定义类型未定义 出错行是:conn As New ADODB.Connection

请各位大侠帮忙分析一下为什么出错,我那样连接数据库对吗?

[IMG]C:\Documents and Settings\user.BA-FWZX213\桌面\未命名.jpge[/IMG]

重新安装最新的数据库访问组件！<MDAC_TYPE2.8.exe>

试试看用图形界面能不能连上，可以用图开界面直播接获取连接字符串

你是不是忘了引用 ADO 对象了？若忘了这样做就可以了：“工程”--->"引用"--->"Microsoft   Activex Object  2.5 Lbrary".