关于ADO的问题？

ade2003

我用VBA,想用ADO打开Northwind里面产品的表，程序如下：
Sub OpenADORecordset()
Dim cnNorthwind As ADODB.Connection
Dim rs产品 As New ADODB.Recordset
On Error GoTo ErrorHandler
Set cnNorthwind = New ADODB.Connection
cnNorthwind.Provider = "Microsoft.Jet.OLEDB.4.0"
code continued on next page
code continued from previous page
cnNorthwind.Open "D:\Program Files\Microsoft Office\OFFICE11\SAMPLES\Northwind.mdb"
Set rs产品 = New ADODB.Recordset
rs产品.Open "产品", cnNorthwind
Exit Sub
ErrorHandler:
MsgBox0 "An error occurred.  The error number is" & Err.Number & "and the description is" & Err.Description
Exit Sub
End Sub
运行的时候说，code continued on next page
code continued from previous page，这亮句缺少语句结束，该怎么改呢？？？？
怎么样才能使Northwind里面产品的表出现在我的access表里面呢？？？？？

ade2003

Sub OpenADORecordset()
'declare and instantiate the object variables
Dim cnNorthwind As ADODB.Connection
Dim rs产品 As ADODB.Recordset

On Error GoTo Error_Handler
'Set connection to a new Connection object
Set cnNorthwind = New Connection
cnNorthwind.Provider = "Microsoft.Jet.OLEDB.4.0"

'Open a connection to the Northwind database
cnNorthwind.Open "D:\Program Files\Microsoft Office\OFFICE11\SAMPLES\Northwind.mdb"
'Instantiate a new recordset object
Set rs产品 = New ADODB.Recordset
'Open the recordset and loop through the records
rs产品.Open "select * from 产品", cnNorthwind, adOpenStatic
Do Until rs产品.EOF
Debug.Print rs产品!产品名称
rs产品.MoveNext
Loop

Exit Sub

Error_Handler:
MsgBox ""
Exit Sub

End Sub
还是和上面一样呢？？？？？我都有在VBA设置Microsoft ActiveX Data Object 2.1Libraary引用啊？

cg1

说句不好听的

明显不动脑子照抄代码


Sub OpenADORecordset()
Dim cnNorthwind As ADODB.Connection
Dim rs产品 As New ADODB.Recordset
On Error GoTo ErrorHandler
Set cnNorthwind = New ADODB.Connection
cnNorthwind.Provider = "Microsoft.Jet.OLEDB.4.0"
'code continued on next page 翻成中文：转下页
'code continued from previous page 翻译成中文：承上页
cnNorthwind.Open "D:\Program Files\Microsoft Office\OFFICE11\SAMPLES\Northwind.mdb"
Set rs产品 = New ADODB.Recordset
rs产品.Open "产品", cnNorthwind
Exit Sub
ErrorHandler:
MsgBox0 "An error occurred.  The error number is" & Err.Number & "and the description is" & Err.Description
Exit Sub
End Sub