Нужно, чтобы значения для ComboBox1 были названия таблиц, а для ComboBox2 строчки таблицы

Friend Sub FillTables() 
            Dim alTBL As New DataTable 
            Dim i As Integer 
            cn.Open() 
            alTBL =cn.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"}) 
            cn.Close() 
            Me.cbxTables.Items.Clear() 
            For i = 0 To alTBL.Rows.Count - 1 
Me.cbxTables.Items.Add(alTBL.Rows(i).Item("TABLE_NAME").ToString) 
            Next 
End Sub

Dim cn As OleDb.OleDbConnection
Dim cbxTables As ComboBox

Me.cbxTables

Dim cn As OleDb.OleDbConnection
    Dim cbxTables As ComboBox
    Dim alTBL As New DataTable

Friend Sub FillTables() 
            Dim alTBL As New DataTable 
            Dim i As Integer 
            cn.Open() 
            alTBL =cn.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"}) 
            cn.Close() 
            Me.ComboBox1.Items.Clear() 
            For i = 0 To alTBL.Rows.Count - 1 
msgbox(alTBL.Rows(i).Item("TABLE_NAME").ToString)
Me.ComboBox1.Items.Add(alTBL.Rows(i).Item("TABLE_NAME").ToString) 
            Next 
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TopMost = False
        Me.cn = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "E:\Скачанное\Прогнозирование\Прогнозирование\Database21.accdb")
        Me.FillTables()
    End Sub