在access中怎么设置ADO?

[sean717]

一个小作业用ACCESS 在一个按钮设置VB语句时我想用一下ADO的recordSet. 但是不知如何设置ADO连接 链接到当前这个ACCESS数据库就行了...我写了下面的代码 提示是数据源的连接字符串有错

Private Sub goButton_Click()
Dim Conn As New ADODB.Connection
Dim rst As New ADODB.Recordset

'Dim CurDB As New Database

Set CurDB = CurrentDb
Set Conn = New ADODB.Connection

MsgBox CurrentDb.Name

With Conn
.ConnectionString = "data source= " & CurDB.Name
.Open
End With

Set rst = New ADODB.Recordset

rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic

rst.Open "SELECT Course_ID FROM CourseInfo WHERE Course_ID='CPSC321'", Conn, , , adCmdText

有人会么?
谢谢

[changechange]

Private Sub goButton_Click()
Dim rst As New ADODB.Recordset
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic

rst.Open "SELECT Course_ID FROM CourseInfo WHERE Course_ID='CPSC321'", currentproject.connection,1,1,adcmdtext