Dim ds1 As New DataSet
   Dim ds2 As New DataSet
   Dim cmbTypeDevice As New DataGridViewComboBoxColumn()
   Dim cmbNameDevice As New DataGridViewComboBoxColumn()
   Dim i as integer

   connection.Open()
   With DataGridView1     
     cmbTypeDevice.HeaderText = "Тип прибора"
     cmbNameDevice.HeaderText = "Наименование прибора"
     .Columns.Add(cmbTypeDevice) : cmbTypeDevice.FlatStyle = FlatStyle.Flat
     .Columns.Add(cmbNameDevice) : cmbNameDevice.FlatStyle = FlatStyle.Flat
   End With   
   
   Dim da1 As New OleDbDataAdapter("Select TypeDevice,id From tblTypeDevice Where Status=True Order By TypeDevice ASC", connection)
   Dim da2 As New OleDbDataAdapter("Select nDevice,id From tblNameDevice Where idTypeDevice=" & i & " Order By NameDevice ASC", connection)
   da1.Fill(ds1, "tblTypeDevice")
   da2.Fill(ds2, "tblNameDevice")
   With cmbTypeDevice
        .DataSource = ds1.Tables(0)
        .DisplayMember = "TypeDevice"
        .ValueMember = "id"
   End With
   connection.Close

            Dim cmbTypeDevice As New DataGridViewComboBoxColumn
            Dim cmbNameDevice As New DataGridViewComboBoxColumn
            Dim da1 As New OleDbDataAdapter("Select * From tblTypeDevice", connection)
            Dim da2 As New OleDbDataAdapter("Select * From tblNameDevice", connection)
            Dim dt1 As New DataTable
            Dim dt2 As New DataTable
            da1.Fill(dt1)
            da2.Fill(dt2)
            ds.Tables.Add(dt1)
            ds.Tables.Add(dt2)

            With cmbTypeDevice
                .DataSource = ds.Tables(0)
                .DisplayMember = "TypeDevice"
                .ValueMember = "id"
                .FlatStyle = FlatStyle.Flat
            End With

            DataGridView1.Columns.Add(cmbTypeDevice)
            DataGridView1.Columns.Add(cmbNameDevice)

            If DataGridView1.CurrentCell.ColumnIndex = 1 Then
                Dim control As ComboBox = CType(e.Control, DataGridViewComboBoxEditingControl)
                Dim bs As New BindingSource
                bs.DataSource = ds.Tables(1)
                bs.Filter = "idTypeDevice=" & Convert.ToInt32(DataGridView1.CurrentRow.Cells(0).Value.ToString()) & ""
                With control
                    .DataSource = bs
                    .DisplayMember = "nDevice"
                    .ValueMember = "id"
                    .FlatStyle = FlatStyle.Flat
                End With
            End If