这是代码
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时，运行出现的问题
查看数据库“故障类型”就清空
我发的上一个帖子，有一位版主帮我运行成功，说是我字段名没有搞清楚，我现在也是一头雾水

没有问题了
Private Sub Combo1_Click()
Text1.Text = ""
Text2.Text = ""
= adCmdText
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\guzhang.mdb;Persist Security Info=False"
'Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\软件开发\VB公证软件开发资料\guzhang\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
= adCmdText
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\guzhang.mdb;Persist Security Info=False"
'Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\软件开发\VB公证软件开发资料\guzhang\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

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

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

设置adcmtable时必须有控件绑定数据记录，否则adodc1.recordset=nothing，用这种模式不能照搬sql命令，其相当于省略掉了前面的“select *”，该模式下能正常运行的代码如下：

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"
 = adCmdTable
Adodc1.RecordSource = "guolu  Where 故障类型='" & Combo1.Text & "'"
Adodc1.Refresh
Set Text1.DataSource = Adodc1
    Text1.Text = Adodc1.Recordset.Fields("故障征兆")
    Text2.Text = Adodc1.Recordset.Fields("故障原因")
Adodc1.Recordset.Close
End Sub

Private Sub Form_Load()
Combo1.Text = ""
Combo1.Clear
Set DataGrid1.DataSource = Adodc1
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\guzhang.mdb;Persist Security Info=False"
 = adCmdTable
Adodc1.RecordSource = "guolu"
Set Text1.DataSource = Adodc1
Do While Not Adodc1.Recordset.EOF
    Combo1.AddItem Adodc1.Recordset.Fields("故障类型")
Adodc1.Recordset.MoveNext
Loop
Adodc1.Recordset.Close
End Sub

设置adcmtext模式同一楼代码，运行没有任何问题，没出现你说的删除了“故障类型”的情况。

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

我估计是你的Adodc1控件设置的问题，我又测试了一下，反复点击了Combo1，大概有几十次吧，一点问题都没有。
Adodc1控件是不需要任何设置的，如果设置了Adodc1控件的连接字符串或数据源，就有可能出问题。
你的对话框中的字符：field not updatable,bound property name:tex，field name
意思大概是不能更新，注意：是更新，所绑定，注意是绑定，字段的值。
我的程序中即没有绑定，也没有更新，因此是我估计是你的Adodc1控件设置的问题。
解决办法，删除原来的Adodc1控件，重新在放置一个Adodc1控件将可以了。
给你源文件，你再看看，应该不是程序的问题。

[此贴子已经被作者于2018-5-23 23:14编辑过]