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

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