VB+Access的基本问题！

Question

现在我用VB作了菜单，菜单的名称是"创建会员健康资料"Private Sub 创建会员健康资料_Click()
End Sub然后，我用Access 做了"会员.mdb"文件，存放在"E:\功课\毕业设计\".我的意识是说，当我点击"创建会员健康资料"的时候，能再VB中打开"会员.mdb"这个表！朋友告诉我的代码dao的连接
首先引用DAO
set dbs=opendatabase("数据库名")Ado
引用ADO
dim conn as new adodb.connection
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\My Documents\Test.mdb;Persist Security Info=False"存到里面了，把 ("数据库名") 改称 ("会员")，然后把  C:\My Documents\Test.mdb 改成了 E:\功课\毕业设计\会员.mdb ,然后进行调试，结果点击的时候，就提示错误：“实时错误"3024"，找不到文件 会员！”!
希望高手指点，不知道我说得明白不？

Answer 1

这个更象是ASP的代码，不象VB代码

Answer 2

参考上面的来做
Private Rs As New ADODB.Recordset
Private Conn As New ADODB.ConnectionPrivate Sub Form_Load()
 Dim strConn As String
 
 ' 连接数据库的字符串
 ' 连接带密码的数据库,直接在连接符后面加上Jet OLEDB:DataBase Password='您的密码'
 ' 连接Access97数据库需要使用Jet.OLEDB.3.5,Access2K和以上数据库使用Jet.OLEDB.4.0
 strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
 
 ' 使用客户端数据游标
 Conn.CursorLocation = adUseClient
 ' 打开Access的连接
 Conn.Open strConn
 
 ' 如果RecordSet的状态不是关闭状态,则关闭Recordset
 If Rs.State <> adStateClosed Then Rs.Close
 
 ' Recordser打开表People
 Rs.Open "Select * from People", Conn, adOpenKeyset, adLockOptimistic
 
 ' 报告出 一共多少笔数据,测试是否存在数据
 ' MsgBox Rs.RecordCount
 
 ' 绑定进DataGrid
 Set DataGrid1.DataSource = Rs
 
End Sub

Answer 3

Conn.CursorLocation = adUseClient
 ' 打开Access的连接这里提是错误，说 要求对象，怎么改啊！

Answer 4

我忘了一点 会员.mdb 有三个表！这点有关系吗？

Answer 5

你先前用的是DAO莫依教你的是使用ADO把DAO拿掉,加个ADO控件应该可以的.

Answer 6

拜托各位，你们谁有时间，能不能帮我看看我的程序！你们可以加我的QQ33157727,或者我加你们也行！我把程序传给你们看看，帮我看看那里不对，不就OK了！这样说下去，我不明白，痛苦死了！

Answer 7

不用下载的,在VB中的告诉你详细的方法:进入部件--控件--选择Microsoft ADO data control,确认后再在窗体中加入ADO控件就行了.另外,可以把ado控件的visible设为false

Answer 8

一题二问啊daisy8675(莫依)的代码首先要引用ADO的一个版本，2.1-2.8都 可以， 具体方法是：
运行VB，选择“工程\引用”命令，引用Microsoft ActiveX Data Objects 2.7 Library 无需ADO控件

Answer 9

受教了,楼上能不能帮我看看这个问题?
http://community.csdn.net/Expert/topic/3865/3865914.xml?temp=.8359339

Answer 10

照楼上说的，我把控件换成了 Microsoft ActiveX Data Objects 2.7 Library ，然后把daisy8675(莫依) 给的代码，复制了上去！我的Access数据库的文件名"会员.mdb"，存放在E:\功课\毕业设计\里面，我就把 daisy8675(莫依) 给的代码 改了一点 但是，运行的时候还是错误：实时错误：要求对象 Conn.CursorLocation = adUseClient
 ' 打开Access的连接是不是应该改动一下，改什么啊？我不知道啊！
提示一下！
谢谢！