Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Dim sql As String = "Data Source=xx.xx.xx.146,1433;Network Library=DBMSSOCN;Initial Catalog=navi;User ID=nomeutente;Password=aereo;"
Dim dbCon As New SqlConnection(sql)
Dim dbAdp As New SqlDataAdapter
Dim dbData As New DataSet
dbAdp.SelectCommand = New SqlCommand
dbAdp.SelectCommand.Connection = dbCon
dbAdp.SelectCommand.CommandText = "Select * " & " FROM Artico " dbAdp.SelectCommand.CommandType = CommandType.Text
dbCon.Open()
dbAdp.Fill(dbData, "Artico")
dbCon.Close()
DataGridView.AutoGenerateColumns = True
DataGridView.DataSource = dbData
DataGridView.DataMember = "Artico" End Sub