Insert Into con variable en SQL server

[phoenix_7]

Prueba esto a ver si te sirve



Dim conexion As String = "Data Source=organiza-q3kfra\sqlexpress;Initial Catalog=farmacia;Integrated Security=True"
Dim sql As String = "insert into datos(datos_comprador,comentarios)values(@datos_co mprador,@comentarios)"
Dim cn As New SqlConnection(conexion)
Dim cmd As New SqlCommand(sql, cn)
cn.Open()
cmd.Parameters.AddWithValue("@datos_comprador", TextBox1.Text)
cmd.Parameters.AddWithValue("@comentarios", TextBox2.Text)
cmd.ExecuteNonQuery()
TextBox1.Text = ""
TextBox1.Text = ""