Question

VB如何把mdb数据库第一列读到list中

求做一个VB程序，两个list列表框(UNL,PWL)，两个文本框（UN,PW）数据库（data.mdb 字段1：UserName 字段2：PassWord） 按钮1（DQ） 按钮2（BC）
要求：单击按钮1（DQ）把data.mdb中UserName中的内容读取到list1(UNL)中
把PassWord中的内容读到list2（PWL）中
在文本框1（UN）文本框2（PW）中随意输入内容后单击按钮2（BC）把UN中的内容添加到UserName中，把PW中的文字添到PassWord中，要求在同一行。
求源码 love.521.sk@139.com 如何做的好再追加

Answer 1

Private Sub BC_Click()
If Trim(UN) = "" Then Exit Sub
Adodc1.Recordset.ActiveConnection.Execute = "insert into np ([UserName],[PassWord]) values ('" & Trim(UN) & "','" & Trim(PW) & "')"
MsgBox "ok"
End Sub

Private Sub DQ_Click()
UNL.Clear
PWL.Clear
Adodc1.RecordSource = "select * from np" 'np是access库data.mdb中的表名
Adodc1.Refresh
With Adodc1.Recordset
While Not .EOF
UNL.AddItem .Fields("UserName")
PWL.AddItem .Fields("PassWord")
.MoveNext
Wend
End With

End Sub

Private Sub Form_Load()
UN.Text = ""
PW.Text = ""
PW.PasswordChar = "*"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\data.mdb"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from np where 1<>1" 'np是access库data.mdb中的表名
Adodc1.Refresh

End Sub