VB访问ACCESS2007数据库accdb下载

[weixin_39821620]

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
相关下载链接：//download.csdn.net/download/veimi/6225765?utm_source=bbsseo