Dim strTypeDeviceSelect As String = "SELECT id,TypeDevice,status FROM tblTypeDevice ORDER BY TypeDevice"
Dim strTypeDeviceInsert As String = "INSERT INTO tblTypeDevice(TypeDevice) VALUES(?)"
Dim strTypeDeviceUpdate As String = "UPDATE tblTypeDevice SET TypeDevice=? WHERE id=?"
Dim strTypeDeviceDelete As String = "UPDATE tblTypeDevice SET status=false WHERE id=?"

Private dsTypeNameDevice As New DataSet

Private daTypeDevice As New OleDbDataAdapter()

Private cmdTypeDeviceSelect As New OleDbCommand(strTypeDeviceSelect, conn)
Private cmdTypeDeviceInsert As New OleDbCommand(strTypeDeviceInsert, conn)
Private cmdTypeDeviceUpdate As New OleDbCommand(strTypeDeviceUpdate, conn)
Private cmdTypeDeviceDelete As New OleDbCommand(strTypeDeviceDelete, conn)

Private dtTypeDevice As New DataTable

Private bsTypeDevice As New BindingSource

With daTypeDevice
                .SelectCommand = cmdTypeDeviceSelect
                .InsertCommand = cmdTypeDeviceInsert
                .UpdateCommand = cmdTypeDeviceUpdate
                .DeleteCommand = cmdTypeDeviceDelete
                .FillSchema(dtTypeDevice, SchemaType.Mapped)
                .Fill(dtTypeDevice)
            End With

With dsTypeNameDevice
                .Clear()
                .Tables.Add(dtTypeDevice)
                .Tables.Add(dtDevice)
                '.Relations.Add("FKTypeNameDevice", dsTypeNameDevice.Tables(0).Columns("id"), dsTypeNameDevice.Tables(1).Columns("idTypeDevice"))
            End With
With bsTypeDevice
                .DataSource = dsTypeNameDevice
                .DataMember = dsTypeNameDevice.Tables(0).TableName
            End With