try this.. :)
Dim transaction As SqlTransaction
con.Open()
transaction = con.BeginTransaction()
Try
Dim cmd As New SqlClient.SqlCommand("Insert into Item_table(Item_Name,Item_PRate) values ('apple',150)", con)
cmd.ExecuteNonQuery()
transaction.Commit()
Catch ex As Exception
transaction.Rollback()
End Try