Originariamente inviato da zetaweb
...non so se è corretto come modo di inserimento in DB... voi che dite?
io la metterei giù + o - cosi
codice:
Private Function Scrivi(ByVal _codice As String, ByVal _testo As String, ByVal _prezzo As Decimal) As Integer
        Dim myConn As SqlConnection
        Try
            myConn = New SqlConnection("connectionstring")
            Dim myCmd As SqlCommand = myConn.CreateCommand
            myCmd.CommandText = "INSERT INTO tab_bordi(codice, testo, prezzo) " & _
                    "VALUES(@codice, @testo, @prezzo )"
            myCmd.Parameters.Add("@codice", SqlDbType.NVarChar).Value = _codice
            myCmd.Parameters.Add("@testo", SqlDbType.NVarChar).Value = _testo
            myCmd.Parameters.Add("@prezzo", SqlDbType.Money).Value = _prezzo
            myConn.Open()
            Return myCmd.ExecuteNonQuery()
        Finally
            myConn.Close()
        End Try
    End Function