porque el primer Fill tarda?

[Micgar]

lo que pasa es que yo lleno el grid dependiendo del codigo que eliga en el Combo

osea que cada vez que yo cambie el valor dentro del Combo yo hago lo siguiente:

ds1.Tables("Ppal").Clear()
daPpal.SelectCommand.CommandText = "SELECT * FROM Ppal WHERE Cia ='" & _
combo.value & "'"
daPpal.Fill(ds1, "Ppal")

otra cosa en el FormLoad configuro el grid osea configuro las columnas, colores, mascaras de columnas, le asigno al grid el DataSource para tenerlo siempre conectado a la tabla "Ppal"

***********Form Load**************

grDet.DataSource = ds1.Tables("Ppal")
grDet.RetrieveStructure()

Ahora el problema me viene cuando cambio por primera vez el valor en el combo que me tarda como 4 segundos en llenarme el grid, la segunda vez si lo hace violentamente.....

Me recomendaron un data reader pero es de solo lectura..., ahora con el data dable como haria para cambiar el grid cada vez que cambie el valor del combo. Será mas Rápido?

Gracias Uso VBForms