Private Sub CargarCoicidencias(datos As Collection) '24 ago 2020
With gdwCoicidencias
.header = 2
.Columns.Count = 2
.Rows.Count = datos.Count
.Columns[0].Title = ("Libro")
.Columns[0].Expand = True
.Columns[1].Title = ("Abreviatura")
.Columns[1].Width = 130
Dim dato As String
Dim fila As Integer
For Each dato In datos
.[fila, 0].Text = dato
.[fila, 1].Text = datos.Key
Inc fila
Next
.Height = .Rows.Height * datos.Count '<----------------- alto gridview =alto de una fila*cantidad de filas que contendrá el gridview, en esta caso lo da una colección
End With
End