Update records(vb.net 2008)

Private Sub updatetblitem()
        connection_open()
        ssql = "UPDATE tblitem SET ticketno= '" & txtticket.Text & "', date_t= '" & dtprdate.Value _
        & "',  m_date= '" & TextBox2.Text & "',e_date= '" & TextBox1.Text & "',interest_r= '" & txtinterest.Text _
        & "' ,penalty_r= '" & txtpenalty.Text & "',s_fee= '" & txtservice.Text & "',account_stat= '" & txtstatnew.Text & _
        "',payments= '" & txttotal.Text & "' where ticketno='" & txtticketno1.Text & "'"
        cmd = New OleDbCommand(ssql, olecon)
        cmd.ExecuteNonQuery()
        cmd.Dispose()
        connection_close()
    End Sub