Dim conn As New SqlCeConnection
        conn.ConnectionString = MasterPath
        Dim cmd As New SqlCeCommand("SELECT * FROM Tab", conn)
        Dim da As New SqlCeDataAdapter(cmd)
        Dim ds As New DataSet()
        Dim dr As DataRow
 
        da.Fill(ds, "Tab")
 
        For Each dr In ds.Tables("Tab").Rows
            ComboBox1.Items.Add(dr.Item("Name"))
        Next
 
        Me.ComboBox1.SelectedItem = Environment.UserName
 
        'With Me.ComboBox1
        '    .DataSource = ds.Tables("Tab")
        '    .DisplayMember = "Name"
        '    .ValueMember = "Name"
        '    .SelectedItem = Environment.UserName
        'End With
 
        If Not Me.ComboBox1.SelectedItem = Environment.UserName Then _
          Me.ComboBox1.SelectedIndex=0