Imports system.data.sqlclient

        Dim con As New SqlConnection("integrated security=true;data source=(local);initial catalog=BDNAME")
        If con.State = ConnectionState.Closed Then con.Open()
        Dim cmd As New SqlCommand("insert into Tabla (campo1,campo2) values (@c1,@c2)", con)
        cmd.CommandType = CommandType.Text
        cmd.Parameters.AddWithValue("@c1", "valor_1")
        cmd.Parameters.AddWithValue("@c2", "valor_1")
        cmd.ExecuteNonQuery()