如何将MDB中的myxc表上内容直接显示在TextBox？

Question

我有个表myxc记录有很多内容，如何实现按Command2时就逐条显示在对应的TextBox上,如表中有个pic_dis字段，要显示在Text1.Text上，如下的代码中Set adoRs = adoConn.Execute（ ,adCmdText)如何写？
Private Sub Command2_Click()
Dim adoRs As ADODB.Recordset
On Error Resume Next
Screen.MousePointer = vbHourglass
  DoEvents
  Set adoRs = adoConn.Execute（？ ,adCmdText)
  If adoRs.EOF Then Exit Sub
 adoRs.MoveNext   
Text1.Text = adoRs!pic_dis
End Sub

Answer 1

Set adoRs = adoConn.Execute（"select pic_dis from myxc" ,adCmdText)