求VB+SQL中产生一个报表的问题。

Question

谁帮我看看生成报表                                                   txtSQL = "select * from party where party_Id = '" & txtId.Text & "'"
      Set mrc = ExecuteSQL(txtSQL, MsgText)      Set PartyReport.DataSource = mrc
     
      
        PartyReport.txtId1.DataField = mrc.Fields(1)
       
        PartyReport.txtname1.DataField = mrc.Fields(2)
        
        PartyReport.txtsex1.DataField = mrc.Fields(3)
     
        PartyReport.txtBorn1.DataField = mrc.Fields(4)
        
        PartyReport.txtNation1.DataField = mrc.Fields(5)
       
        PartyReport.txtinsert1.DataField = mrc.Fields(6)
        
        PartyReport.txtchapter1.DataField = mrc.Fields(7)
        
        PartyReport.txtIdcard1.DataField = mrc.Fields(8)
      
        PartyReport.txtWork1.DataField = mrc.Fields(9)
       
        PartyReport.txtfamily1.DataField = mrc.Fields(10)
        
        PartyReport.txtTele1.DataField = mrc.Fields(11) 
经过编译，提示未找到方法或数据成员。  提示信息停在txtId1处
哪位帮我看看问题出在什么地方了

Answer 1

PartyReport.txtTele1.DataField = mrc.Fields(1).name