Dim bs1 As New BindingSource
Dim bs2 As New BindingSource
Dim ds As New DataSet
Dim cmbTypeDevice As New DataGridViewComboBoxColumn
Dim cmbNameDevice As New DataGridViewComboBoxColumn

connection.Open()
Dim da1 As New OleDbDataAdapter("Select TypeDevice,id From tblTypeDevice Order By TypeDevice", connection)
Dim da2 As New OleDbDataAdapter("Select nDevice,id,idTypeDevice From tblNameDevice Order By nDevice", connection)
da1.Fill(ds, "tblTypeDevice")
da2.Fill(ds, "tblNameDevice")

bs1.DataSource = ds
bs1.DataMember = "tblTypeDevice"

With cmbTypeDevice
     .HeaderText = "Тип прибора"
     .DataSource = bs1
     .DisplayMember = "TypeDevice"
     .ValueMember = "id"
End With

With cmbNameDevice
     .HeaderText = "Наименование прибора"
     .DisplayMember = "nDevice"
     .ValueMember = "id"
End With

With DataGridView1
     .Columns.Clear()
     .Columns.Add(cmbTypeDevice)
     .Columns.Add(cmbNameDevice)
End With

Private Sub DataGridView1_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
        If e.RowIndex < 0 OrElse Not e.ColumnIndex = 0 Then
            Return
        Else
            If DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value > 0 Then
                bs2.DataSource = ds
                bs2.DataMember = "tblNameDevice"
                bs2.Filter = "idTypeDevice=" & DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value
                cmbNameDevice.DataSource = bs2
            End If
        End If
End Sub

            connection.Open()
            Dim da1 As New OleDbDataAdapter("Select TypeDevice,id From tblTypeDevice Order By TypeDevice", connection)
            Dim da2 As New OleDbDataAdapter("Select nDevice,id,idTypeDevice From tblNameDevice Order By nDevice", connection)
            da1.Fill(ds, "tblTypeDevice")
            da2.Fill(ds, "tblNameDevice")
            ds.Relations.Add("FKTypeName", ds.Tables(0).Columns("id"), ds.Tables(1).Columns("idTypeDevice"))

            With bs1
                .DataSource = ds
                .DataMember = "tblTypeDevice"
            End With
            With bs2
                .DataSource = bs1
                .DataMember = "FKTypeName"
            End With

            With cmbTypeDevice
                .HeaderText = "Тип прибора"
                .DataSource = bs1
                .DisplayMember = "TypeDevice"
                .ValueMember = "id"
            End With
            With cmbNameDevice
                .HeaderText = "Наименование прибора"
                .DisplayMember = "nDevice"
                .ValueMember = "id"
                .DataSource = bs2
            End With
            With DataGridView1
                .Columns.Clear()
                .Columns.Add(cmbTypeDevice)
                .Columns.Add(cmbNameDevice)
            End With

Private Sub DataGridView1_DataError(ByVal sender As Object, ByVal e As DataGridViewDataErrorEventArgs) Handles DataGridView1.DataError
MessageBox.Show(e.Context.ToString())
End Sub