大家帮看看这段代码有什么问题，提示无效使用new关键字

Question

下面这段代码提示无效使用 New 关键字，请问该怎么修改？Private Sub Form_load()
Dim objCn As New Connection
strCn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                    "Data Source=" & App.Path & "\db1.mdb"
objCn.ConnectionString = strCn
objCn.Open   '建立数据库连接
Set objRs = New Recordset '创建RecordSet对象，获取系统用户信息
Set objRs.ActiveConnection = objCn
 objRs.CursorLocation = adUseClient
 strSQL = "SELECT * FROM 用户数据"
  objRs.Open strSQL
  objRs.ActiveConnection = Nothing    '取消数据库连接
  objCn.Close                         '关闭数据库连接
  Set objCn = Nothing                 '释放连接对象
  cmbStatus.ListIndex = 0
    Exit Sub
DealError:
    Unload Me
End Sub

Answer 1

Set objRs = New Recordset 这个语句之前应该先增加下面的定义dim objRs as Recordset

Answer 2

Dim objCn As New Connection
错误提示在这行

Answer 3

引用Microsoft ActiveX Data Objects 2.5 Library
Dim objCn As New ADODB.Connection

Answer 4

Dim objCn As New ADODB.Connection  会不会错？要是再错的话，估计你是没有添加数据源。

Answer 5

您好，请问怎么引用Microsoft ActiveX Data Objects 2.5 Library

Answer 6

您好，我改成您所说的语句了，但是后面的New Recordset这行又报出同样的错误，请问怎么回事？？

Answer 7

dim objRs as ADODB.Recordset

Answer 8

dim objRs as ADODB.Recordset
Set objRs = New ADODB.Recordset

Answer 9

菜单--工程--引用--勾先Microsoft ActiveX Data Objects 2.5 Library--确定

Answer 10

您好，我照您说的改了，但是后面的Set objRs.ActiveConnection = objCn这行语句
又报出“未找到方法或数据成员”错误

Answer 11

现在代码改成正常了，不报那个错了，但是在Set objRs.ActiveConnection = objCn这行语句
又报出“未找到方法或数据成员”错误，请问怎么回事？？？Private Sub Form_load()
Dim objCn As New ADODB.Connection
strCn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                    "Data Source=" & App.Path & "\db1.mdb"
objCn.ConnectionString = strCn
objCn.Open   '建立数据库连接
Set objRs = New ADODB.Recordset '创建RecordSet对象，获取系统用户信息
Set objRs.ActiveConnection = objCn
 objRs.CursorLocation = adUseClient
 strSQL = "SELECT * FROM 用户数据"
  objRs.Open strSQL
  objRs.ActiveConnection = Nothing    '取消数据库连接
  objCn.Close                         '关闭数据库连接
  Set objCn = Nothing                 '释放连接对象
  cmbStatus.ListIndex = 0
    Exit Sub
DealError:
    Unload Me
End Sub