Try rsRecords = Connection.Exec(sQuery)
    gridIzq.header = GridView.Horizontal
    gridIzq.grid = True
    gridIzq.Rows.count = 0
    gridIzq.Columns.count = rsRecords.Fields.Count
    
    For iInc = 0 To rsRecords.Fields.Count - 1
      iJnc = 1
      Do While Mid(rsRecords.Fields[iInc].Name, iJnc, 1) <> "." 'En MySQL el formato es nombreTabla.nombreCampo, así recuperamos el nombre de campo solamente para el Título de la columna
        iJnc += 1
      Loop
      gridIzq.Columns[iInc].Text = Right(rsRecords.Fields[iInc].Name, Len(rsRecords.Fields[iInc].Name) - iJnc)
      gridIzq.Columns[iInc].Width = 10 * Len(Right(rsRecords.Fields[iInc].Name, Len(rsRecords.Fields[iInc].Name) - iJnc))
    Next
    
    gridIzq.Rows.Count = rsRecords.Count

Public Sub gridIzq_Data(Row As Integer, Column As Integer)
  If (rsRecords <> Null) Then
    If Row >= 0 Then
      rsRecords.moveTo(Row)
      Try gridIzq.Data.Text = Str(rsRecords[Column])
    Endif
  Endif
Catch
Print Error.Text
End