Зависимие поля со списком vba

 Dim dBaseCommand As New OleDbCommand
        Dim dBaseConnection As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\1111\Desktop\бд\Database9_1.accdb;Persist Security Info=False;")
        Dim adapter As OleDbDataAdapter
        dBaseCommand.Connection = dBaseConnection
        dBaseCommand.CommandType = CommandType.Text
        adapter = New OleDb.OleDbDataAdapter(dBaseCommand)
        Dim dt_tt As New DataTable
        dBaseCommand.CommandText = "SELECT GenusName From Genus "
 
 
        adapter.Fill(dt_tt) 
       
        Me.ComboBox1.Items.Clear() 
 
        For Each r As DataRow In dt_tt.Rows
            Me.ComboBox1.Items.Add(r(0).ToString)
        Next
       
        Dim dt_tt1 As New DataTable
        dBaseCommand.CommandText = "SELECT SpeciesEpithet From  Species"
 
     
        adapter.Fill(dt_tt1) 
      
        Me.ComboBox2.Items.Clear() 
 
        For Each r As DataRow In dt_tt1.Rows
            Me.ComboBox2.Items.Add(r(0).ToString)
        Next
        
 
        Dim dt_tt2 As New DataTable
        dBaseCommand.CommandText = "SELECT CultivarEpithed From Cultivar "
 
     
        adapter.Fill(dt_tt2)
     
        Me.ComboBox3.Items.Clear()
        For Each r As DataRow In dt_tt2.Rows
            Me.ComboBox3.Items.Add(r(0).ToString)
        Next
    End Sub