DataGrid caricamento veloce di una griglia

Imports System.Data.OleDb

ApriDatabaseSql()
Dim DatSet As New DataSet("Authors") 'Il DataSet, un oggetto che non esiste in VB6, che contiene la copia della tabella nel database
Dim DatAdpter As New OleDb.OleDbDataAdapter("sELECT AU_ID, AU_lNAME, aU_FNAME, PHONE FROM aUTHORS", Dbazienda)
DatAdpter.Fill(DatSet, "Authors")

Me.DataGridView1.DataSource = DatSet.Tables(0)


'**************************************************************************


Imports System.Configuration
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic

Public Function ApriDatabaseSql() As Boolean

Dbazienda = New OleDb.OleDbConnection '("server=(local);Database=pubs;Integrated Security=True")
Dbazienda.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pubs;Data Source=60016P05260"

Try
Dbazienda.Open()
ApriDatabaseSql = True
Catch
MsgBox("Connessione non effettuata" & vbCrLf & Err.Description, MsgBoxStyle.Critical, "Connessione Fallita")
ApriDatabaseSql = False
End Try

End Function