简单问题：如何连接sql?

Question

我建了一个窗体"form1",加上1个控件command1,写上如下代码：
Private Sub Command1_Click()
   Dim Connect As String
   Dim rs As adodb.rescordset
   Connect = "Provider=server={Sql server};uid=sa;pwd=pass;database=Myinfo"
   sSql = "select * from baseinfo"
   Dim cn As adodb.Connection
   Set cn = New adodb.Connection
   cn.Open Connect
   Set rs = New adodb.rescordset
   rs.Open sSql, cn, adLOCkoptionXX, ADlockXXXstatic
End Sub
但错误指向第三行(Dim rs As adodb.rescordset):compile error:user-defined type not defined
问这是怎么回事阿？是不是在哪儿还要设置一下?

Answer 1

是不是你的工程中没有引用ADO的组件对象
在工程引用中添加 MicroSoft ActivX Data Object 2.* 即可

Answer 2

引用了MicroSoft ActivX Data Object 2.5 library, 还是不行

Answer 3

^_^，你打错字啦，还真没注意
Dim rs As adodb.rescordset
正确如下
dim rs as ADODB.Recordset真是好简单的问题

Answer 4

你的第三行应改为Dim rs As adodb.recordset

Answer 5

我是从网上拷过来的代码，以前没用vb连过sql,所以
不好意思阿，哈哈