如图，我想点击“查询”后如果数据存在，让下面控件的内容自动变到该记录。如我若查询主样方号为“滇-澄江-云南沉香-4"若有数据存在，
则查到以后让下面的主样方号等一系列控件相应的显示该样方的记录。我的基本代码如下：（不会的我用msgbox代替了）
Dim rs As New ADODB.Recordset
Dim sqlstr, ChaxunZiduan As String
ChaxunZiduan = Text120.Value
Select Case ChaxunZiduan
Case "目的物种"
sqlstr = "SELECT * from [物种群落表] where [目的物种]='" & Text_Chaxunzhi & "'"
rs.Open sqlstr, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Not rs.EOF Then
MsgBox rs(1) (此处不知如何处理)
Else
Label_tishi.Visible = True
End If
Case "主样方号"
sqlstr = "SELECT * from [物种群落表] where [主样方号]='" & Text_Chaxunzhi & "'"
rs.Open sqlstr, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Not rs.EOF Then
DoCmd gorecord (此处不知如何处理)
Else
Label_tishi.Visible = True
End If
End Select
谢谢！！！！
