那位大虾能帮我写个完整的VB查询程序，具体内容无所谓

本人是个菜鸟。。只为完成老师的作业~ ~#

如题，只想要个完整的VB查询程序，里面的查询内容能更具，实际情况只改变最好。。。。

--------------------编程问答-------------------- 55555555555

怎么没人帮帮我啊 --------------------编程问答-------------------- 因为你的问题点数是零分就没人帮你了
--------------------编程问答-------------------- PLS detail Description Requirements. --------------------编程问答-------------------- who can give me some money, no matter is 1 jiao or 100 yuan --------------------编程问答-------------------- 我帮你吧 --------------------编程问答-------------------- '如写在模块用吧Dim改为Public
Dim db As ADODB.Connection
Dim Rst As Recordset
Dim SQL As String

Sub From()
Set db = New Connection
'必须设置的客户端/服务器端游标方式
db.CursorLocation = adUseClient
'我连接的是SQL数据库，如你用ACCESS可以挂个ADODC控件更改下连接方式
db.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Mangers;Data Source=NOTELY"

    Set Rst = New ADODB.Recordset
    SQL = "Select * from 表名 where 字段名='需要字段内容等于什么，选择有唯一性的最好'"
    Rst.Open SQL, db, adOpenDynamic, adLockOptimistic

    If Rst.EOF = True Then
        Exit Sub
        Else
            Set DataList.RowSource = db.Execute(SQL)
            DataList.ListField = "Corporations"

            Rst.MoveNext

    End If
    Rst.Close
Private Sub DataList_Click()
    '设置点中DataList控件上数据成功后，文本控件内数据的关联显示
    Set Rst = New ADODB.Recordset
    SQL = "Select * from missions where Corporations='" + DataList.BoundText + "'"
    Rst.Open SQL, db, adOpenDynamic, adLockOptimistic
    Set Rst = db.Execute(SQL)
    If Not Rst.EOF Then
        For i = 1 To Rst.RecordCount
        '&""是为了解决读取数据时，如数据的该字段为空<NULL>的问题
        Text1.Text = Rst.Fields("字段主键名").Value & ""
        Text2.Text = Rst.Fields("字段名").Value & ""
        '如有多个字段，在这里按照上面的格式继续添加
        Rst.MoveNext
        Next i
        Rst.MoveFirst
    End If


End Sub

该程序需要1个数据库，1个表，程序界面1个DataList1控件，2个text控件，分别命名text1 text2
第一个From内的数据连接时为了在DataList1中显示数据
第二个数据连接存在于DataList_Click内（DataList_Click是鼠标点击DataList_Click内显示的内容的）是为了让你可以再DataList_Click控件中选择具体的数据
看看是否是你需要的，如程序错误，请留言，近期会尽快回复你


--------------------编程问答-------------------- 去搜一下吧，有很多的

补充：VB ,  数据库(包含打印，安装，报表)