如何将sql查找的信息输出到vb文本框中

'=====读取数据库(查找数据显示内容)开始=====

Dim UserQuery As New adodb.Recordset
Dim i As Integer
Dim str As String
Dim LtItm As ListItem
Dim DBstr As String
'select 查询内容 from 表名 where 字段名='查询内容'
DBstr = "select * from TelUser where TelNum='" & Trim(frmFind.txtTel.Text) & "'"
'模糊查询，select 查询内容 from 表名 where 字段名 like '%查询内容%'
'DBstr = "select * from TelUser where TelUser like '%" & Trim(frmFind.txtUser.Text) & "%'"
'打开数据库相应的记录, '打开数据集
UserQuery.Open DBstr, DBCnn, adOpenStatic, adLockReadOnly
If check.RecordCount <= 0 Then '没有查找到相应记录
MsgBox "该记录不存在!" & vbCrLf & "请重新输入!", , "查找失败"
Exit Function
ElseIf check.RecordCount = 1 Then '查找到唯一记录
'让数据库中字段的值显示在文本框中
Me.txtID.Text = UserQuery.Fields("TelID").Value
Me.txtNum.Text = UserQuery.Fields("