Public Class Form1
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim Cnn As ADODB.Connection
Dim rec As ADODB.Recordset
Dim i As Integer
Cnn = New ADODB.Connection
Cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\LIANXI\Database1.mdb;Persist Security Info=False")
rec = New ADODB.Recordset
rec.Open("SELECT * FROM yuanzhu", Cnn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
ComboBox1.Items.Clear()
For i = 1 To rec.RecordCount
ComboBox1.Items.Add(rec.Fields("").Value)
rec.MoveNext()
Next i
End Sub
End Class
上述代码在VB6有效
输入上述代码调试不报错，但是下拉列表中没有任何数值
不熟悉VS平台中VB语言的特点，求大神帮忙。
谢谢~~

快来人啊

求助。。。