Tables:

Cities
city_id  int
city_code varchar
city_name varchar

Dests
dest_id int
dest_from int
dest_to int
dest_value int




    Private Sub Dests_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim dataSet1, dataSet2 As New DataSet
    Dim sqlStr As String = "SELECT(SELECT CITY_NAME FROM CITIES WHERE CITY_ID = DEST_FROM) a,(SELECT CITY_NAME FROM CITIES WHERE CITY_ID = DEST_TO) b,DEST_id,DEST_VALUE FROM DESTS"


        conn.Open()
        Dim DataAdapter1 As New SqlDataAdapter(sqlStr, conn)
        DataAdapter1.Fill(dataSet1, "Dests")

        conn.Close()

        TextBox1.DataBindings.Add("Text", dataSet1, "cities.City_name")
        TextBox2.DataBindings.Add("Text", dataSet1, "cities.City_name")
        TextBox3.DataBindings.Add("Text", dataSet1, "Dests.Dest_id")
        TextBox4.DataBindings.Add("Text", dataSet1, "Dests.Dest_value")





    End Sub