判断当前登陆用户的问题

chacoo

我看到可以使用以下的方法判断当前登陆用户,但是有没有更简单的方法?

    Dim rst As New ADODB.Recordset

   

    Set rst = CurrentProject.Connection.OpenSchema(adSchemaProviderSpecific, , _

    "{947bb102-5d43-11d1-bdbf-00c04fb92675}")

   

    While Not rst.EOF

        Debug.Print rst!COMPUTER_NAME

        Debug.Print rst!LOGIN_NAME

        Debug.Print rst!CONNECTED

        

        rst.MoveNext

    Wend

Benjamin_luk

如果是工作组可以用 CurrentUser() 取得用户名[em05]