虚心求教！！！！！！

[jimmychen1981]

我想写一段程序是从MDB数据库中提取user表中的内容,用一个datacombo控件列出用户称供选择,一个TEXTBOX供用户输入密码,大概思路如此,希望高手赐教写出代码，谢谢！！！！

[Wang_xiaoni]

Dim rs As New ADODB.Recordset
Dim cnn As String
Dim sql As String

Private Sub Command1_Click()
sql = "select * from login where user='" & Combo1.Text & "' and pwd='" & Text1.Text & "'" '查询用户
rs.Requery
If rs.RecordCount = 0 Then
MsgBox "密码不正确"
Else
'DO.....
End If
End Sub

Private Sub Form_Load()
Dim i
cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\program\VB98\NWIND.MDB;Persist Security Info=False" 'Data Source换为你的数据库
sql = "select user from login"
rs.Open sql, cnn
While rs.EOF
Combo1.AddItem rs!user '初始化Combo
Wend
End Sub