请教用vb制作组件时怎么连接sql server2000的数据库！？谢谢！

Question

Dim db As Collection
Dim rs As  Recordset
Set db = New adodb.Connection
Set rs = New adodb.Recordset

Answer 1

Dim Conn As New ADODB.Connection
Dim RS As New ADODB.RecordsetConn.Open "Provider=sqloledb;Data Source='" & Server & "';Initial Catalog=army;User Id='" & User & "';Password='" & Password & "';"Rs.Open "select * from Table_user where name='" & Trim(Txtname.Text) & "'", Conn, adOpenDynamic, adLockOptimistic

Answer 2

Dim Conn As New ADODB.Connection
Dim RS As New ADODB.RecordsetConn.Open "Provider=sqloledb;Data Source='" & 服务器名 & "';Initial Catalog=数据库名称;User Id='" & 用户名 & "';Password='" & 用户密码& "';"Rs.Open "数据库中的数据表", Conn, adOpenDynamic, adLockOptimistic
所有的名称都以字符串形式存放的！

Answer 3

可是还是不行，我是这样写的，报错（用户定义类型未定义！）：
Public Sub Login(Username As String, Password As String, strCnnString As String)Dim db As New ADODB.Collection
Dim RS As New ADODB.Recordset
Set db = New Connection
Set RS = New Recordset
db.Open strCnnStringRS.Open "select * from [USER]", db, adOpenStatic, adLockOptimisticRS.Close
Set RS = Nothing
End Sub