rs 采采问题

Question

代码：
Public DATA_CONNECTION As String
Private rs As ADODB.RecordsetPrivate Sub Command1_Click()
    Set rs = New ADODB.Recordset
    
    rs.Open "SELECT * FROM t_site where siteID=10000", _
                DB_CONNECTION_STRING, adOpenForwardOnly, adLockReadOnly
        If Not rs.EOF Then
        
        
Text1.Text = rs("siteName")
End If
    rs.Close
    Set rs = Nothing
            
End SubPrivate Sub Form_Load()
    DATA_CONNECTION = "Server=10.10.2.30;PROVIDER=SQLOLEDB;UID=sa;PWD=;DATABASE=abc"
End Sub运行报“rs as ADODB.Recordset”用户定义类型未定义怎么弄？

Answer 1

在"工程"菜单中的“引用”命令处引用Microsoft ActiveX Data Objects……

Answer 2

引用了之后可以了，但是报：
实时错误3001Arguments are of the wrong type, are out of accepteable range, or are in conflict with one another