关于数据库的问题

Question

Private Sub Command3_Click()
Dim str As String
Dim conn As Connection
Dim rs As Recordset
Set conn = New Connection
Set rs = New Recordset
sdbname = App.Path + "\net1.mdb"
sPassword = ""
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;" & "Data Source=" & sdbname & ";" & "Jet OLEDB:Database Password=" & sPassword & ";"
SQL = "Select * from ask"
rs.Open SQL, conn, 1, 3
For i = 1 To rs.RecordCount
List1.AddItem rs("姓名")
rs.MoveNext
Next i
Command1.Enabled = False
End Sub
当我运行点击，按钮时就提示 “Connection 用户类型未定义，”为什么会出现这个，应该怎么解决，请各位大哥多多帮忙！

Answer 1

你需建立VB的数据工程，它会引用必要的DLL文件，执行代码：
Private Sub Command1_Click()
    Dim sql As String
    Dim sdbname As String
    Dim sPassword As String
    Dim str As String
    Dim conn As adodb.Connection
    Dim rs As adodb.Recordset
    Set conn = New adodb.Connection
    Set rs = New adodb.Recordset
    sdbname = App.Path + "\net1.mdb"
    sPassword = ""
    sql = "Select * from ask"
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;" & "Data Source=" & sdbname & ";" & "Jet OLEDB:Database Password=" & sPassword & ";"
    conn.Open
    rs.CursorLocation = adUseClient
    rs.Open sql, conn, adOpenStatic, adLockReadOnly
    'Set DataGrid1.DataSource = rs
    For i = 1 To rs.RecordCount
        List1.AddItem rs("姓名")
        rs.MoveNext
    Next i
End Sub

Answer 2

引用Microsoft ActiveX Data Object 2.x Libary

Answer 3

怎么引用呢你需建立VB的数据工程，它会自动引用必要的ADO数据对象的DLL文件
在建立了VB的数据工程后，移去原数据工程的窗体，添加你自己代码的窗体。
再执行你的代码。

Answer 4

我打开VB的时候总是自动加载“标准EXE”的工程，有没有办法打开时，任何工程都加载呢？

Answer 5

我打开VB的时候总是自动加载“标准EXE”的工程，有没有办法打开时，任何工程都不加载呢？

Answer 6

引用的话，你在project, reference里面选择
Microsoft ActiveX Data Object ... (很多版本）

Answer 7

如何引用我已经明白了，但是我打开VB这个开发工具的时候，总是自动加载一个什么都没有的“标准EXE”的工程，有没有办法打开时，让VB这个开发工具不加载任何类型的工程呢

Answer 8

你用的是ado啊  那么你应该这么写：Dim conn As new Adodb Connection

Answer 9

按F2,然后引用，找到Microsoft ActiveX Data Object ...