Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.DataBindings.Add("Text", ComboBox1, "Text")
        TextBox2.DataBindings.Add("Text", ComboBox1, "SelectedValue")

        Dim dtData As DataTable = funcComboItems()

        ComboBox1.DataSource = dtData
        ComboBox1.DisplayMember = "Показываем"
        ComboBox1.ValueMember = "Возращаем"
    End Sub

    Private Function funcComboItems() As DataTable
        funcComboItems = Nothing
        Try
            Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\;Extended Properties=""text;HDR=Yes;FMT=TabDelimited"";"
            Dim strQuery As String = "select * from [ItemsSource.txt]"
            Dim dataDA As New Data.OleDb.OleDbDataAdapter(strQuery, strConn)
            funcComboItems = New DataTable
            dataDA.Fill(funcComboItems)
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
        Return funcComboItems
    End Function