免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

Private Sub Form_Load()

userlist.Clear
Adodc1.RecordSource = "select * from 數(shù)據(jù)"
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
userlist.AddItem Adodc1.Recordset.Fields("用戶")
Adodc1.Recordset.MoveNext
Loop

End sub