absenperintah.CommandType = CommandType.Text
        cekdata.Open()
        Dim valuex = "500"
        Using cekbaca As SqlDataReader =
        absenperintah.ExecuteReader(CommandBehavior.CloseConnection)
            If cekbaca.Read = True Then
                Dim nilxbaca = cekbaca("rumus_k") --> record in the table is   1906650*(3.7/100)
                Dim nilmy = valuex + nilxbaca
                Dim result = New DataTable().Compute(nilmy, Nothing)
                MsgBox(result)
            End If
            cekbaca.Close()
        End Using
        cekdata.Close()