cargar rápido un grid

[guillebomtrasmiti]

lo hago así

Public Sub conectagridcompleto()

Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet

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

comados.CommandText = "SELECT reg,Plu,Producto,Cantidad,Pts,Fecha,NombreFormaPag o,IvaVenta,Barra,NombTerminal,Anulado,IdComanda From IntroduccionDeVentasAhora WHERE Barra = @combo1 and NombTerminal = @combo2 and Anulado=0 and Fecha BETWEEN @FI AND @FF order by reg "
' and NombreFormaPago <> ('TARJETA CREDITO') and
'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
dgcompleto.DataSource = datavacio
dgcompleto.DataMember = "IntroduccionDeVentasAhora"
dgcompleto.Refresh()

Catch
'If RadioBIVA18.Checked = True Then
' MessageBox.Show("No hay datos")
'End If
End Try

'cargo las funciones para los radiobutton una vez se seleccionan

'sumatotallabel()
'sumatotal()
'sumatodo()
sumatodograntotal()


conexion.Close()

End Sub