VB操作ACCESS，在已经打开数据库的条件下，如何判断：



如果系统当前登录用户: VBA.Environ("username")，在数据库LogUser字段中存在，

则窗体combo1列表框显示，数据库Username字段所对应的值。否则窗体combo1显示空值。


该如何表示，求解，谢谢！

完整的代码是这样的，但还是报错：

Private Sub Form_Load()

'  Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\UIuser.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
    Dim Scnn As Object, Srt As Object, use As String
    use = VBA.Environ("username")
    Combo1.Text = ""

    Set Scnn = New ADODB.Connection
    Scnn.CursorLocation = adUseClient
    Scnn.Open "Provider=Microsoft.jet.oledb.4.0;Data source=" & App.Path & "\UIuser.mdb"

    Set Srt = New ADODB.Recordset
    Set Srt.ActiveConnection = Scnn

    Srt.Open "select * from UserInfo"
    Do Until Srt.EOF
        Combo1.AddItem Srt.Fields("Username").Value
        Srt.MoveNext
    Loop
    Srt.Close

    'cn连接数据库语句略
    SQL1 = "Select * Fron UserInfo Where Username<>"" And LogUser<>"""
    Srt.Open SQL1, Scnn, 2, 2
    Do While Not Srt.EOF
        Combo1.AddItem Srt("Username")
        Srt.MoveNext
    Loop
    Srt.Close
    Scnn.Close

    '    Srt.Close
    '    Set Srt = Nothing


End Sub

[此贴子已经被作者于2017-8-24 13:09编辑过]

还是不行，报错：

[此贴子已经被作者于2017-8-25 00:30编辑过]