vb如何将数据库中某个字段显示在一个文本框

    Dim mrc As ADODB.Recordset    Private Sub cmdQuery_Click()        Dim txtSQL As String    Dim MsgText As String    txtSQL = "select * from student_Info"    Set mrc = ExecuteSQL(txtSQL, MsgText)    Call viewData’调用该函数    Set txtMoney.DataSource = mrc    txtMoney.DataField = "cash"End SubPrivate Sub Form_Load()     Dim MsgText As String     Dim txtSQL As String        txtSQL = "select * from student_Info"    Set mrc = ExecuteSQL(txtSQL, MsgText)    '得到student表，并显示出来        'select得到的临时表，游标指向尾记录，在Access中指向第一条        mrc.MoveFirst             End SubPrivate Sub viewData()        txtStudentno.Text = mrc.Fields(1)    txtstudentName.Text = mrc.Fields(2)            ' 把临时表中当前记录赋给文本框    txtsex.Text = mrc.Fields(3)    txtDepartment.Text = mrc.Fields(4)    txtGrade.Text = mrc.Fields(5)    txtClassno.Text = mrc.Fields(6)    txtstatus.Text = mrc.Fields(10)    txtcomment.Text = mrc.Fields(8)    txtMoney.Text = mrc.Fields(9)End Sub

注：       

      文本框的DataField属性：

      返回/设置一个值，将控件绑定到当前记录的一个字段。

      DataSource属性：

      设置一个数值，指出数据控件通过它将当前控件绑定到数据库。