Question

vb搜索数据库问题

请问一下，我用VB编了个小程序，一个确定按钮和一个文本框，我想一点确定，就在文本框中显示数据库中的所有内容，以下是程序：小弟是新手，刚看完书，想尝试一下，如果有什么问题，莫笑，谢谢了
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim db As String
db = "C:\Documents and Settings\clh\桌面\gp.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("gp.mdb")
conn.Open strcon
sql = "select * from table_stu "
Text2_Change = sql
rs.Open sql, conn, 1, 1
End Sub
-----------------------------------------------
Private Sub Text1_Change()
End Sub
系统报错是：User-defined type not define

Answer 1

有多处错误啊：
Set conn = Server.CreateObject("ADODB.Connection")是服务器端asp代码的建立对象的方法，不是本地客户端VB的语法。下面的Server.MapPath也是。
Text2_Change是过程名，不是变量，不能给它赋值，而且你这条语句也完全没什么意义。
rs没有定义。
另外，用文本框显示数据库中的所有内容是不现实的，显示其中一个表的一个记录的一个字段，倒是可以的。
你的代码错误太多了，我把它简化如下，希望你能更好理解：

Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Documents and Settings\clh\桌面\gp.mdb"
rs.Open "select * from table_stu ", conn, 1, 1
Text1.Text = rs(0)
rs.Close
conn.Close
End Sub

以上代码，是在Text1中显示数据库文件gp.mdb中的table_stu数据表的第一条记录的第一个字段（具体是什么我就不知道了）

Answer 2

你这是从asp 里摘过来的吧。
VB程序哪里有server.mappath
改成app.path & "/gp.mdb"

Answer 3

strcon="Microsoft.Jet.OLEDB.4.0;Data Source=" & db &";Persist Security Info=False"