Exemplo - injeção de SQL 2/6
l Dim Cnx As New System.Data.SqlClient.SqlConnection("user id=sa;initial catalog=Northwind;password=")
l Cnx.Open()
l Try
l Dim CmdS As String = "select ProductID, ProductName, UnitPrice from products where ProductID =" & TextBox1.Text
l Dim Cmd As new System.Data.SqlClient.SqlCommand(CmdS, Cnx)
l Dim DR As System.Data.SqlClient.SqlDataReader = Cmd.ExecuteReader()
l ListBox1.Items.Clear()
l While (DR.Read())
l ListBox1.Items.Add(DR(0) & " - " & DR(1) & ": " & DR(2))
l End While
l Finally
l Cnx.Dispose()
l End Try

| Este é o código chamado ao clicar no botão.
| Estamos criando uma conexão. Para simplificar, estamos passando o nome de usuário e senha na string de conexão, algo extremamente inseguro mas que não é o problema que queremos ilustrar.
| Criamos uma string SQL concatenando um texto fixo com o conteúdo de um TextBox. Este é o nosso grande pecado, como veremos a seguir.
| Depois exibimos o conteúdo do conjunto de resultado.