Code Snippet
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim connstr As String = ("Persist Security Info=False;Integrated Security=SSPI;Initial Catalog=Northwind;server=localhost")
Dim conn As SqlClient.SqlConnection = New SqlClient.SqlConnection(connstr)
Dim sql As String = "INSERT INTO test(custName) VALUES(@custName)"
Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sql, conn)
cmd.Parameters.Add("@custName", SqlDbType.VarChar, 255)
cmd.Parameters("@custName").Value = Me.textBox1.Text
conn.Open()
Try
cmd.ExecuteNonQuery()
Catch
End Try
End Sub