If Text1.Text <> "" Then
Adodc1.RecordSource = "select distinct 报纸信息表.报纸名称,年份.... from 报纸信息表,程度表,位置表 where 报纸信息表.报纸名称 Like '%" & Text1.Text & "%' order by 年份 ASC"
Adodc1.Refresh
End If
Adodc1.Recordset.Open
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveLast
Adodc1.Recordset.MoveFirst
lable2 = Adodc1.Recordset.RecordCount
End If
这是我的代码,谁能帮着改改,我要完成在lable2中显示查询出的记录条数
3q