Shared ds As New DataSet
Shared dt As New DataTable

Private Sub btnInvia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInvia.Click
'connessione al database
Dim myConn As SqlClient.SqlConnection
myConn = New SqlClient.SqlConnection
myConn.ConnectionString() = "Data Source=xxxx;Initial Catalog=xxx;Integrated Security=True"
myConn.Open()

Dim cmd = myConn.CreateCommand
cmd.CommandText = "SELECT cod_articolo as Codice, descrizione as Descrizione, layuot as Layout FROM art"
Dim da As New Data.SqlClient.SqlDataAdapter(cmd)
da.Fill(ds, "art")
dt = ds.Tables(0)
griglia.DataSource = dt
griglia.DataBind()
da.Dispose()
cmd.Dispose()
End Sub