VB访问ACCESS2007数据库accdb

Public cn As ADODB.Connection Public rs As ADODB.Recordset Private Sub Form_Load() Set rs = New ADODB.Recordset OpenDB rs.Open "select * from Large", cn, 1, 3 Do While Not rs.EOF Combo1.AddItem rs("Description") rs.MoveNext Loop End Sub