VB6.0,请教一个问题，做了一个课题小系统。数据存在Access的一个表里面，现在想实现一个功能

VB6.0,请教一个问题，做了一个课题小系统。数据存在Access的一个表里面，现在想实现一个功能

用回车触发事件，用Change的话就等于你在里面随便输入就触发了，你输入字符串的时候就会报错。
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

//写上要触发的事件，SQL= Select * from [表] where xxx = text1.text
text2.text = rs.field()
End If
End Sub追问兄台，text2.text = rs.field() 这句代码编译错误 实时错误 ‘424’ 要求对象
触发事件 我写了
sql = "Select * from tb_ABC where KC_IDs=Text1(1).Text"追答你引用access了吗，完整的好长的，我这只是举个大概的例子

你这句写错了，sql = "Select * from tb_ABC where KC_IDs=Text1(1).Text
你是想从TextBox1中读取查询条件是吧？你这样这写的TextBox1传回去的值是“Text1(1).Text”而不是你输入TextBox1中的数。
改成sql = "Select * from tb_ABC where KC_IDs=' ” & Text1(1).Text & ” ' ”试试，应该可以。

在Text对应的Change事件中写读取代码就行了 Find到记录 然后 读取B字段的值