MySQL - Llenar datagriedview

Public Shared Sub CargarCombo3(cmbx As DataGridViewComboBoxCell, consult As String, value As String, display As String)

	Dim ObjCon As New BaseDato()

	ObjCon.Conectar()

	ObjCon.CrearComando(consult)

	cmbx.DataSource = ObjCon.EjecutarDataTable()

	ObjCon.Desconectar()

	cmbx.ValueMember = value

	cmbx.DisplayMember = display

End Sub

Public Shared Sub CargarSubcategoria(ByVal fila As DataGridViewRow, ByVal e As DataGridViewCellEventArgs, ByVal id As Integer)

    Dim celda As DataGridViewComboBoxCell = TryCast(fila.Cells(1), DataGridViewComboBoxCell)

    CargarCombo3(celda, "SELECT * FROM Subcategoria WHERE IdCategoria = " & id, "Codigo", "Nombre")

End Sub

Public Sub CargarCategorias(ByVal idcat As Integer, ByVal dgv As DataGridView)

    Try

        ObjCon.Conectar()

        ObjCon.CrearComando("SELECT COUNT(*) FROM subcategoria WHERE IdCategoria = ?idcat")

        ObjCon.AsignarParametro("?idcat", MySqlDbType.Int32, idcat)

        Dim cont As Integer = Convert.ToInt32(ObjCon.EjecutarDataTable.Rows(0)(0).ToString)

        ObjCon.Desconectar()

        Dim i As Integer

        Dim subcat As New DataGridViewComboBoxColumn()

        subcat.Name = "Subcategoria"

        Funciones.CargarCombo2(subcat, "SELECT * FROM Subcategoria WHERE IdCategoria = " & idcat, "Codigo", "Nombre")

        dgv.Columns.Add(subcat)

        Dim rev As New DataGridViewComboBoxColumn()

        rev.Name = "Calificacion"

        rev.Items.Add("Bueno")

        rev.Items.Add("Regular")

        rev.Items.Add("Malo")

        rev.Items.Add("No Aplica")

        dgv.Columns.Add(rev)

        Dim def As New DataGridViewComboBoxColumn()

        def.Name = "Defecto"

        dgv.Columns.Add(def)

        Dim obs As New DataGridViewTextBoxColumn()

        obs.Name = "Observacion"

        dgv.Columns.Add(obs)

        For i = 1 To cont Step 1

            dgv.Rows.Add()

        Next

    Catch mierror As Exception

        MessageBox.Show("Error de Conexión a la Base de Datos: " & mierror.Message)

    End Try

End Sub

Private Sub FrmCategoria_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

    ObjVehi.CargarCategorias(id, DgvRevision)

    'Funciones.CargarDataCombo(DgvRevision, id)

    ' DgvRevision.AutoGenerateColumns = True

End Sub