adding sales history

I have started working with qsrules in the vb.net enviroment. I am trying to load sales history from another pos system. I found this code on this site and started working with it. It seems to write to the batch tbl but can not seem to get it to work on the transaction tbls. How do i go about tendering this? what is missing? thanks

Dim sess As New QSRules.SessionClass Dim cnn As New QSRules.ConnectionInfoClass cnn.RegisterNumber = 1 cnn.Provider = "SQLOLEDB.1" cnn.UserID = "uid" cnn.Password = "pwd" cnn.InitialCatalog = "s301" cnn.DataSource = "server" cnn.ConnectTimeout = 30 sess.Database.OpenConnection(cnn, False)

Dim r As QSRules.StatusCategoryEnum = sess.Build(1, True) sess.License.MarkAsRegistered()

Dim currBatch As QSRules.Batch = sess.Register.Batch currBatch.MakeNewBatch(False, 0) sess.InitializeTransaction() sess.Transaction.SetCustomer(12, False) sess.Transaction.Entries.Add(1, "01Z97", 5.0, 5.0, False, 0.0)

sess.Transaction.Post(3250, Now(), False)

sess.Database.UpdateRegister(1, True, currBatch.BatchNumber) sess.Database.CloseBatch(currBatch.BatchNumber)