Dim Conn As New SqlClient.SqlConnection()
Dim ConnSTR As String = "Data Source=NOMESERVER;Initial Catalog=NOMEDATABASE;User Id=USERNAME;Password=PASSWORD;"
Conn.ConnectionString = ConnSTR
Conn.Open()
Dim CommandSQL As New SqlClient.SqlCommand("SELECT * FROM tabclienti WHERE codclient='MRossi' AND pagato=0")
CommandSQL.Connection = Conn
Dim Reader As SqlClient.SqlDataReader = CommandSQL.ExecuteReader()