I need to have Treeview Regions/Town/contact any advice how it is best to do this

anyone who can help me to get list to treeview like this
Regions
--Town
--contact
I have Table one for Regions and one for Town and the Table contact


to day the database/treeview is like this
company
--contact


Code:
 Public Sub getcompany()


        Dim conn As Common.DbConnection

        cnString = String.Format("Server=SERVER;Database=DATABASE;Uid=USER;Pwd=PASSWORD;SslMode=none;")

        Dim sqlQRY As String = "SELECT * FROM  company ORDER BY company Asc"


        conn = New MySqlConnection(cnString)

        Try
            conn.Open()

            'create command 
            Dim cmd As Common.DbCommand = New MySqlCommand(sqlQRY, conn)

            'create data reader
            Dim rdr As MySqlDataReader = cmd.ExecuteReader

            While (rdr.Read)

                TreeView1.Nodes.Add(rdr("ID").ToString, rdr("company").ToString, 1, 2)
                AddOrders(rdr("ID").ToString)

            End While

        Catch ex As Common.DbException
            MsgBox(ex.ToString)
        Finally
            ' Close connection
            conn.Close()
        End Try

    End Sub
	
	
	
	    Private Sub AddOrders(ByVal companyID As String)

        Dim conn2 As Common.DbConnection

        'Create connection
        conn2 = New MySqlConnection(cnString)

        Dim sqlQRY As String = "SELECT * FROM contact WHERE companyID = '" & companyID & "'  ORDER BY contact Asc"

        ' Open connection
        conn2.Open()

        'create command 
        Dim cmd As Common.DbCommand = New MySqlCommand(sqlQRY, conn2)

        'create data reader
        Dim rdrs As MySqlDataReader = cmd.ExecuteReader

        While (rdrs.Read)

            TreeView1.Nodes(companyID).Nodes.Add("", rdrs("contact").ToString, 5, 3)

        End While
    End Sub