用VB编写学生通讯录。当在下拉列表框中选择某一姓名，能在三个文本框中分别显示电话号码、E_mail 和专业。

我做好了，怎么发给你？
Dim conn As New ADODB.Connection

Private Sub Command1_Click()
Dim rs As New ADODB.Recordset
Dim sqlstring As String
sqlstring = "select * from student where name='" & Combo1.Text & "'"
rs.Open sqlstring, conn, adOpenStatic, adLockOptimistic
Text1.Text = rs.Fields(1).Value
Text2.Text = rs.Fields(2).Value
Text3.Text = rs.Fields(3).Value

End Sub

Private Sub Form_Load()
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\新建文件夹 (2)\Database1.mdb;Persist Security Info=False"

Dim rs1 As New ADODB.Recordset
Dim sql As String
Dim i As Integer
sql = "select name from student"
rs1.Open sql, conn, adOpenStatic, adLockOptimistic
rs1.MoveFirst
While Not rs1.EOF
For i = 0 To rs1.Fields.Count - 1
Combo1.AddItem rs1.Fields(0).Value
Next