Private Sub Form_Load()
Adodc1.Visible = False
Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\ACCESS练习.mdb;Persist Security Info=False"
db.Open
strcn = "select * from user"
rs.Open strcn, db, adOpenStatic, adLockReadOnly
If rs.EOF = False Then rs.MoveLast
rs.MoveFirst
Dim i%
For i = 0 To rs.RecordCount - 1
cob.AddItem rs.Fields(0)
rs.MoveNext
Next
If cob.ListCount > 0 Then cob.ListIndex = 0
rs.Close
db.Close
cob.SetFocus
End Sub