проблема со списком визуального базового программирования

Question

Как использовать код environment.username в моем приложении для отображения текущего системного пользователя в выпадающем списке или для перечисления всех, кто когда-либо входил в систему на этом компьютере?

Текущий код:

Private Sub FrmLogin2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    'loading the Computer user account in the current pc
    Dim WSHNetwork = CreateObject("WScript.Network")
    Dim strUser = ""

    strUser = Environment.UserName
    lblDispalyWinUser.Text = Environment.UserName

    Dim con As SqlConnection = New SqlConnection("Data Source=SRD-WSJHBAP12\CALCTOOL;Initial Catalog=CalcToolDB;User ID=sa;Password=P@ssw0rd")
    Dim cmd As SqlCommand = New SqlCommand("Select EmpNo, Username, Password from UserLogin ", con)
    Dim sda As SqlDataAdapter = New SqlDataAdapter(cmd)
    'Dim dt As DataTable = New DataTable()
    Dim ds As New DataSet()
    Dim rd As SqlDataReader

    con.Open()
    con.Close()

    Try
        con.Open()
        sda.Fill(ds)
        sda.Dispose()
        cmd.Dispose()
        con.Close()

        'cboUsername.DataSource = ds.Tables(0)
        cboUsername.ValueMember = "Environment.UserName"
        cboUsername.DisplayMember = "Environment.UserName"

    Catch ex As Exception
        MessageBox.Show("can not open connection ! ")
    End Try