cargar rápido un grid

[guillebomtrasmiti]

y otra es así

Public Sub conectagrid()

Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet

Dim comados = conexion.CreateCommand
comados.CommandType = CommandType.Text
Try

comados.CommandText = "SELECT reg,Barra,NombTerminal,ROUND(Sum(Cantidad*Pts),2) AS TOTAL,NombreFormaPago,Fecha,Anulado From IntroduccionDeVentasAhora WHERE Barra = @combo1 and NombTerminal = @combo2 and Anulado=0 and NombreFormaPago <> ('TARJETA CREDITO') and Fecha BETWEEN @FI AND @FF group by reg,Barra,NombTerminal,NombreFormaPago,Anulado,Fec ha Order by ROUND(Sum(Cantidad*Pts),2) DESC"
'comados.CommandText = "SELECT reg,Barra,NombTerminal,Anulado,Fecha, ROUND(Sum(Cantidad*Pts),2) AS TOTAL From IntroduccionDeVentasAhora WHERE Barra = @combo1 and NombTerminal = @combo2 and Anulado=0 and Fecha BETWEEN @FI AND @FF group by reg,Barra,NombTerminal,Anulado,Fecha Order by ROUND(Sum(Cantidad*Pts),2) DESC"

'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)
comados.Parameters.AddWithValue("@combo1", ComboMostrador.SelectedValue.ToString)
comados.Parameters.AddWithValue("@combo2", ComboTerminal.SelectedValue.ToString)
comados.Parameters.AddWithValue("@FI", Fecha1.Value.Date.ToString("dd/MM/yyyy"))
comados.Parameters.AddWithValue("@FF", Fecha2.Value.Date.ToString("dd/MM/yyyy"))

adapta2.SelectCommand = comados
adapta2.Fill(datavacio, "IntroduccionDeVentasAhora")

'MessageBox.Show(adapta2.Fill(datavacio, "IntroduccionDeVentasAhora").ToString)


'aquí cargo el datasource y el datamenber del datagrid
DgEstima.DataSource = datavacio
DgEstima.DataMember = "IntroduccionDeVentasAhora"
DgEstima.Refresh()

Catch
MessageBox.Show("Compruebe si dispone de datos cargados")
frmProgressbar.Close()

End Try

'sumatodograntotal()

conexion.Close()

End Sub