VB6 datacombo操作Adodc控件

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbStu.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from stu "
Adodc1.Refresh
'Set DataGrid1.DataSource = Adodc1

If Adodc1.Recordset.RecordCount > 0 Then

For i = 0 To Adodc1.Recordset.RecordCount - 1
datacombo.AddItem Adodc1.Recordset.Fields("姓名")
datacombo.Refresh
Adodc1.Recordset.MoveNext
Next i
Else
MsgBox "没有数据"
End If
datacombo.ListIndex = "0"
Text3.Enabled = False
End Sub

Private Sub datacombo_Click()
Adodc1.RecordSource = "select * from tb_stu where 姓名='" + Combo1.Text + "'"
Adodc1.Refresh
Text1.Text = Adodc1.Recordset.Fields("语文")
Text2.Text = Adodc1.Recordset.Fields("数学")
Text3.Text = Adodc1.Recordset.Fields("外语")

End Sub