How to insert the record in the table through AddWithValue

Dim SqlConn As New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("MyConnectionString").ToString())
Dim OBjTrans As SqlTransaction = Nothing
Dim ObjCommand As New SqlCommand
SqlConn.Open()
ObjCommand.CommandText = "INSERT INTO CustMast(CustName) VALUES (@CustName)
ObjCommand.Parameters.AddWithValue("@CustName ","Gaurav Agrawal")
ObjCommand.Connection = SqlConn
ObjCommand.Transaction = OBjTrans
ObjCommand.ExecuteNonQuery()
ObjCommand.Dispose()
OBjTrans.Commit()
SqlConn.Close()