dim con as new adodb.connection dim rs as new adodb.recordset con.open"字符串" rs.cursortype=adopenstatic dim aa as string aa="select 列名 from 表名 where 姓名= ' " &text1.text & "'" rst.open aa,cnn text2.text =rs.fields("号码")&""
dim con as new adodb.connection dim rs as new adodb.recordset con.open"字符串" rs.cursortype=adopenstatic dim aa as string aa="select 号码 from 表名 where 姓名= ' " &text1.text & "'" rs.open aa,cnn text2.text =rs.fields("号码")&""