Dim Sqlconn As New SqlClient.SqlConnection()
Dim ConnSTR As String = "Data Source=nomeserver;Initial Catalog=nomedb;User Id=utente;Password=password;"
Sqlconn.ConnectionString = ConnSTR
Sqlconn.Open()
Dim CommandSQL As New SqlClient.SqlCommand("select nome_colonna from nome_tabella")
CommandSQL.Connection = Sqlconn
Dim DReader As SqlClient.SqlDataReader = CommandSQL.ExecuteReader()
Dim Str as string = string.empty
Do While DReader.Read()
       str = str & DReader.Item("nome_colonna") & ";"
Loop