Dim conLogin As New SqlCeConnection(constr)
        conLogin.Open()
        Dim sqlLogin As String = "select * from [User]"
        Dim daLogin As New SqlCeDataAdapter(sqlLogin, conLogin)
        Dim dsLogin As New Data.DataSet
 
        daLogin.Fill(dsLogin, "Usertab")
        With ComboBox2
            .DataSource = dsLogin.Tables("Usertab")
            .DisplayMember = "[user_name]"
            '.ValueMember = "[user_id]"
        End With