Value Rounds Up

dim ierr_amt as decimal
 
 mytxtErr_Amt = CType(item.FindControl("txtERR_AMT"), TextBox)
                                    ierr_amt = mytxtErr_Amt.Text     'this point ierr_amt is 8534.88
                                   
                                   
                                    insert statement
                                    ByVal ierr_amt As Decimal
                                   
                                    aParms(3) = New SqlParameter("@ierr_amt", SqlDbType.Decimal)
                                       
                                        If ierr_amt = Nothing Then
                                            aParms(3).Value = DBNull.Value
                                        Else
                                            aParms(3).Value = ierr_amt  'this point also 8534.88
                                                  end if
                                                 
                                                 
                                                  When I go check database it is value is rounded up and saved that way 8435
                                                 
err_amt column in database takes money (10,2)