Dim rs As New ADODB.Recordsetrs.Open "select * from 表 where 学号='" & text1.Text & "'", 1, 3Private Sub Form_Load() Shell "explorer http://www.yiluobo.com"End Sub
如果不用控件，可以使用SQL语句查询，然后赋值给文本框。
