我想做个登陆窗口,用户名我使用了combobox,把ACCESS数据库中的用户名在combobox中显示出来,然后再输入密码,用adodc控件或ado,怎么写,帮帮忙啊,希望写详细点并加备注,谢谢!!!!
在ACCESS建有一个名为users的数据表,字段有user,password

On Error Resume Next
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strconnection As String
Dim sql As String
Dim i As Integer
Set conn = New ADODB.Connection
strconnection = "Provider=Microsoft.jet.oledb.4.0;" & "Data Source=" & App.Path & "\db1.mdb"
conn.Open strconnection
Set rs = New ADODB.Recordset
sql = "select user from users"
conn.CursorLocation = adUseClient
rs.Open , sql, adOpenKeyset, adLockOptimistic  这个地方报错..
i = rs.RecordCount
rs.MoveFirst
For j = 1 To i
    Combo1.AddItem rs.Fields(User)
    rs.MoveNext
Next
这样写怎么报错啊,...

谢谢!!!