这是代码
Private Sub Combo1_Click()
Text1.Text = ""
Text2.Text = ""
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\guzhang.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from guolu Where 故障类型='" & Combo1.Text & "'"
Adodc1.Refresh
    Text1.Text = Adodc1.Recordset.Fields("故障征兆")
    Text2.Text = Adodc1.Recordset.Fields("故障原因")
Adodc1.Recordset.Close
End Sub

Private Sub Form_Load()
Combo1.Text = ""
Combo1.Clear
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\guzhang.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from guolu"
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
    Combo1.AddItem Adodc1.Recordset.Fields("故障类型")
Adodc1.Recordset.MoveNext
Loop
Adodc1.Recordset.Close
End Sub
这是我需要的界面
用access数据库 ado控件，一个combo 两个text
这是部分数据库
急需各位帮助，帮忙救救急

将记录源设定为2-adcmtable时，运行出现的问题
修改记录源设定为1-adcmtext时，运行出现的问题
查看数据库“故障类型”就清空
我发的上一个帖子，有一位版主帮我运行成功，说是我字段名没有搞清楚，我现在也是一头雾水

这是我的数据库，你看一看有没有问题？添加那个代码后，出现的问题和我楼上修改记录源为1-adcmtext一样。

给你的回复，被我弄在第三楼了。

我自己建的数据库有问题没有？

非常感谢您的帮助