VB. NET - Зависимые ComboBox + БД / DataRelation

Imports System.Data.OleDb 'Импортируем область имен для краткости в будущем
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles    Button1.Click 
'Тут неважно в каком событии пишешь
 
        Dim connetionString As String 'определяем переменную для строки подключения к БД
        Dim oledbCnn As OleDbConnection 'определяем сам объект подключения
        Dim oledbAdapter As OleDbDataAdapter 'определяем дата-адаптер
        Dim ds As New DataSet 'создаем новый экземпляр набора данных
        Dim sql As String 'определяем переменную для нашего ЗАПРОСА
        Dim i As Integer 'а это так - счетчик
 
'Для аксессовских БД строка подключения выглядит так:
        connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Your mdb filename;"
'ОПРЕДЕЛЯЕМ ЗАПРОС - если надо подробнее - смотри в поисковике _SQL-запрос_
        sql = "SELECT * FROM Таблица WHERE Поле = чему-то"
 
'Создаем подключение
        oledbCnn = New OleDbConnection(connetionString)
        Try
            oledbCnn.Open() 'Открываем соединение
            oledbAdapter = New OleDbDataAdapter(sql, oledbCnn) 
            oledbAdapter.Fill(ds) 'Заполняем адаптер
            For i = 0 To ds.Tables(0).Rows.Count - 1 'поехали читать данные в цикле
                MsgBox(ds.Tables(0).Rows(i).Item(0))
            Next
'Далее закрываем все подключения и пр.
            oledbAdapter.Dispose() 
            oledbCnn.Close()
'ловим ошибки
        Catch ex As Exception
            MsgBox("Невозможно соединиться с БД" & vbCrLf & "Текст ошибки: " & ex.Message)
        End Try
    End Sub
End Class

Imports System.Data.OleDb
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connetionString As String
        Dim oledbCnn As OleDbConnection
        Dim oledbCmd As OleDbCommand
        Dim sql As String
 
        connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Your mdb filename;"
        sql = "Your SQL Statement Here like Select * from product"
 
        oledbCnn = New OleDbConnection(connetionString)
        Try
            oledbCnn.Open()
            oledbCmd = New OleDbCommand(sql, oledbCnn)
            Dim oledbReader As OleDbDataReader = oledbCmd.ExecuteReader()
            While oledbReader.Read
                MsgBox(oledbReader.Item(0) & "  -  " & oledbReader.Item(1) & "  -  " & oledbReader.Item(2))
            End While
            oledbReader.Close()
            oledbCmd.Dispose()
            oledbCnn.Close()
        Catch ex As Exception
            MsgBox("Can not open connection ! ")
        End Try
    End Sub
End Class

...
 
connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Your mdb filename;"
        
sql = "SELECT * from tblProduct WHERE id=('" & comboBox1.Text & "')"
 
        oledbCnn = New OleDbConnection(connetionString)
        Try
            oledbCnn.Open()
            oledbCmd = New OleDbCommand(sql, oledbCnn)
            Dim oledbReader As OleDbDataReader = oledbCmd.ExecuteReader()
ComboBox1.Items.Clear()
            While oledbReader.Read
                ComboBox1.Items.Add(oledbReader.Item(1))
            End While
            oledbReader.Close()
            oledbCmd.Dispose()
            oledbCnn.Close()
        Catch ex As Exception
            MsgBox("Can not open connection! ")
        End Try